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BEST AVAILABLE IMAGES 

Defective images within this document are accurate representations of 
the original documents submitted by the applicant. 

Defects in the images may include (but are not limited to): 

• BLACK BORDERS 

• TEXT CUT OFF AT TOP, BOTTOM OR SIDES 

• FADED TEXT 

• ILLEGIBLE TEXT 

• SKEWED/SLANTED IMAGES 

• COLORED PHOTOS 

• BLACK OR VERY BLACK AND WHITE DARK PHOTOS 

• GRAY SCALE DOCUMENTS 



IMAGES ARE BEST AVAILABLE COPY. 



As rescanning documents will not correct images, 
please do not report the images to the 
Image Problem Mailbox. 
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PullRighiMcnu Widget prw=(PullRighiMenuWidgei)w; 
SmeObject enny=prw-> simple jnenu.eiitry_set; 
SmeObjectClass class; 

if ((entry = = NULL) I | !XtIsScnsiuve((Widgct)cnrry))rctiirn; 

if (event- > type! «= LeaveNotify && event- > type! = EnierNotify) { 

XtAppError(XtWidgeiToApplicationContext(w), 

"pullO action should only be used with XCrossing events."); 

return; 

} 

if (None! = event- > xcrossing.sub window) return; 

if (event- > xcrossing.y < 0 1 1 event- > xcrcasing.y > pm- > core.height) { 

Unhighlight(w,cvent,params t iaimj5arams); 

return! 

); 

if (event- > x crossing. x < 0) { 

if (XtIsSubclass(XtPaTra(w),pullRightMenuWidgetClass)) XtPopdown(w); 

return: 

}; 

class = (SmeObjetaClass)cntry- > object.widget_class: 
if (event- > xcrossing.x > dtw- > core. width &A 
XtIsSubclass<erury,smeBSBpTObjectClass)) (class- > sme_class.notify)((Widget)entry); 
else Unbjgldight(w,evem,pararns.num_parains); 

} 



/ 



Function Name: Execute 

Description: Determines notify action on basis of SmeObject. 
Arguments: w - the pull right menu widget. 

event - the notify-rype event that caused this action. 

params. numj>arams - NOT USED *• 
Returns: none 
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■/ 

siatic void Execuic(wr event, params, num_params) 

Widget w; 
XEvcnt •event; 
String *parains; 
Cardinal *nuin_params; 

{ 

PullRighiMcnuWidgct prw=(PullRighlMcnuWidgct)w; 
SmcObject eniry =pnv- > simple_menu.eniry_sei; 
SmeObjectClass class; 
Widget shell; 

Dprintf("£xecuie\n"); 

for(shell «= w:XtlsSubclass(sbxU,pullRigbiMeiiuWidgaClass);shell = XtParentf shell)) 

{ 

XawSimpleMeni]ClearActive£ntxy(shel]); 
XtPopdown(shell); 

}; 

if 

((entry = -GctEvrai£niry(w,cveiii))&A(rairy! » NUli)duSJCtIsSciisirivc((Widgci)cntry)) { 

class = (SmcObjcctClass)cniry- > object. widget_class; 

if (XtIsSubclass(enoy,snieBSBObjectClass)) 
(class- > sme_cUss.norify)((Widg«)enny); 

}; 

} 



/ 
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* Public Functions. 

........ ..........-.•......-.»*»«**»•*«**»»*•«-•-*»-*/ 

/* Function Name: XawPullRightMenuAddGlobalActions 

* Description: adds the global actions to the simple menu widget. 

* Arguments: app_con - the appcontext. 

* Returns: none. 
*/ 

void 

XawPullRightMenuAddGlobalActions(app_con) 

XtAppContext app_con; 

{ 

Xanitiali2eWidgetClass(pullRigbiMenuWidgetClass); 
XmuCalllnitializers( app^con ); 

} 

/*••• •••••••• •••••••••••••••••••• •••••••• 

* Private Functions. 

/* Function Name: Create Label 

* Description: Creates a the menu label. 

* Arguments: w - the smw widget. 

* Returns: none. 
+ 

* Creates the label object and makes sure it is the first child in 

* in the list. 



SUBSTITUTE SHEET (RULE 26) 
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•/ 

static void 
CreaieLabel(w) 
Widget w; 
{ 

SimpleMenuWidget smw = (SimpleMenuWidget) w; 
register Widget * child, * next_child; 
register int i; 
Arg aigs[2]; 

if ( (smw- > simple jTienuJabel_string == NULL) j| 
(smw->simple_menu.label ! «= NULL) ) { 
char eiTor_buflBUFSIZ]; 

sprintf(error_buf, "Xaw Simple Menu Widget: %s or %s, %s", 
"label string is NULL", "label already exists", 
"no label is being created."); 

XtAppWaming(XtWidgetToApplicationContext(w), errorjrof); 

return; 

} 

XtSetArg(args[0], XtNlabel. smw->simple_menu.bbel_string); 
XtSetArg(aigsIl], XtNjusrify, XUustifyCenter); 
smw- >simplc < _mcnu. label = (SmeObject) 

XtCreateManagedWidget( "menuLabel " . 

smw->simple_menu.label_class, w, 

args, TWO); 

nexi_child = NULL; 

for (child « smw->comrx>site.children + smw- > compos ite.num_children, 
i = smw- > composite. num_childxen ; i > 0 ; i-, child-) { 
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if (ncxt_child ! = NULL) 
•ncxt_chiJd = "child; 
ncxt_child = child; 

} 

"child = (Widget) smw- > simplejncnu.label; 

} 

/* Funciioii Name: Layout 

» Description: lays the menu entries out all nice and neat. 

* Arguments: w - See below (+ + +) 

widthjet, heightjet • The returned width and 
» height values. 

* Returns: none. 
* 

* if width = = NULL 1 1 height = = NULL then it assumes the you do not care 

* about the return values, and just want a relayout. 

# 

* if this is not the case then it will set width.rct and bcightjet 

* to be width and height that the child would get if it were layed out 

* at this time. 

* + + + -w- can be the simple menu widget or any of its object children. 
*/ 



static void 

Layout(w, width_ret, heigtoret) 
Widget w; 

Dimension *width_ret, *height_ret; 

{ 

SmeObject currcnt_cntry, *entry; 
SimpleMenuWidget smw; 
Dimension width, height; 
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Boolean do_layout = ((hcight_rei = 
Boolean aJlow_change_size; 
height = 0; 
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= NULL) |j (width_ret -» NULL)); 



if ( XtJsSubclass(w, puliRighiMenuWidgetClass) ) { 
smw = (SimpleMenuWidgei) w; 
current_entry = NULL; 

} 

else { 

smw = (SimpleMenuWidgei) XtParent(w); 
cunent_entry = (SmeObjcct) w; 

} 

allow_change_sue = (!XdsRealized((Widget)smw) 1 1 
(smw- > shell.allow_shell_Tcsize)); 

if ( smw- > simple_menu.menu_height ) 
height - smw- > core. height; 

else 

if (dojayout) { 

height = smw->simple_menu.top_margin; 

ForAllChildren(smw, entry) { 

if (!XtIsManaged( (Widget) *entry)) continue; 

if ( (smw- > simple_menu.row_beight ! = 0) && 
(•entry != smw- > simplejnenu. label)) 
(*cniry)- > rectangle .height = smw- > simple_mcnu.row_hcight; 

(♦entry)- >rectangle.y = height; 

(♦entry)- >rectanglc.x = 0; 

height += (*entry)->rectangle.height; 
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height + = smw- > simplc^mcnu.bonom^margin; 

} 

else { 

if ((smw->simple_menu.row_height ! = 0) && 
(cunent_enuy ! = sraw- >simple_menu. label) ) 
height = smw->simple_menu.row_height; 

} 

if (smw- > simple jnenu. menu jvidth) 

width = smw- > core, width; 
else if ( allow_change_size ) 

width = GetMenuWidth((Widget) smw f (Widget) current_entry); 

else 

width = smw- > core, width; 

if (dojayout) { 

ForAllChildrcn(smw, entry) 

if (XdsManaged< (Widget) *entry)) 
(♦entry)- > rectangle.width = width; 

if (aJlow_change_size) 

MakcSetValuesRequest((Widget) smw, width, height); 

} 

else { 

*width_ret = width; 
if (height != 0) 

•heighwet = height; 

} 

} 



/* 
* 



Function Name: AddPositionAction 

Description: Adds the XawPositionSimpleMenu action to the global 
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. action list for this appcon. 

Arguments: app_con - the application context for this app. 

data - NOT USED. 
Rerums: none. 

*/ 

/• ARGSUSED */ 
static void 

AddPositionAction(app_con. data) 
XtAppContcxt app_con; 
caddrj data; 

{ 

static XtActionsRec pos_actionD = { 

{ "XawPosiiionSimpleMenu", PositionMenuAction }, 

}; 

XtAppAddActions(app_con. pos_acuon, XlNumber(pos_action)); 

} 

/* Function Name: FindMcnu 

Description: Find the menu give a name and reference widget. 
Arguments: widget - reference widget. 

* name - the menu widget's name. 

* Returns: the menu widget or NULL. 
*/ 

static Widget 
FindMenu(widget f name) 
Widget widget; 
String name; 

{ 

register Widget w, menu; 
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for ( w = widget ; w != NULL ; w = XtParent(w) ) 
if ( (menu = XtNameToWidget(w. name)) ! = NULL ) 
rctuni(menu); 
reium(NULL); 

} 

/* Function Name: PositionMenu 

* Description: Places the menu 

* Arguments: w - the simple menu widget. 

* location - a pointer the the position or NULL. 

* Returns: none. 



static void 

PositionMenu(w, location) 
Widget w; 
XPoint * location; 

{ 

SimpleMenuWidgct smw 
SmeObject entry; 
XPoint t _point; 
static void MoveMenuQ; 



= (SimpleMenu Widget) w; 



if (location = = NULL) { 
Window junkl, junk2; 
int root_x, root_y t junkX, junkY; 
unsigned int junkM; 



location = &t joint; 

if (XQueryPointer(XtDisplay(w), XtWindow(w), &junkl, &junk2, 

&rootjc, &rootjr, &junkX, &junkY, &junkM) « FALSE) { 
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c har error_buf[BUFSIZ]; 

sprinrf(error_buf, "%s %s", "Xaw - SimpleMenu Widget:", 

"Could not find location of mouse pointer"); 
XiAppWainiDg(XtWidgctToApplicationComext(w), error_buf); 

return; 

} 

location- > x = (short) root_x; 
location- >y - (short) root_y; 

} 

/* 

* The width will not be correct unless it is realized. 
*/ 

XtRealizeWidget(w); 

location- > x - = (Position) w- > core.width/2; 

if (smw- > simple_menu.popup_entry = = NULL) 
entry = smw- > simplemenu. label; 

else 

entry = smw- > simple jnenu.popup_en£ry; 

if (entry ! = NULL) 

location- >y entry- > rectangle.y + entry- >rectangle.height/2; 

MoveMenu(w, (Position) location- >x, (Position) location- >y); 

} 

/* Function Name: MoveMenu 

* Description: Actually moves the menu, may force it to 

* to be fully visable if menu_on_screen is TRUE. 
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* Arguments: w - the simple menu widget. 

* x, y - the current location of the widget. 

* Returns: none 
♦/ 

static void 

MoveMenu(w, x, y) 
Widget w; 
Position x, y; 

{ 

Arg arglisip]; 
Cardinal nurn_args = 0; 

SimpleMenuWidget smw = (SimpleMcmiWidget) w; 

if (smw- > simple_menu.menu_on_screen) { 

ini width = w->corc.width + 2 * w->core.border_width; 
int height = w-> core. height + 2 * w->core.border_width; 

if (x < 0) 
x = 0; 
else { 

int scr_width = WidtbOfScreen(XtScreen(w)); 
if (x + width > scr_width) 
x = $cr_width - width; 

} 

if(y<0) 
y - 0; 
else { 

ini scr_height = HeightOfScTeen(XtScreen<w)); 
if (y + height > scr_height) 
y s= scrjieight - height; 
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} 

} 

XtSeiArg(arglist(num_args), XtNx, x); num_args+ + ; 
XtSetAjg(aiglist[num_args], XiNy, y); num_args + + ; 
XtSciValucs(w. arglisi, num_args); 

} 

/• Function Name: ChangeCursoiOnGrab 

* Description: Changes the cursor on the active grab to the one 

* specified in out resource list. 

* Arguments: w - the widget. 

junk, garbage - NOT USED 

* Returns: None. 
*/ 

/* ARGSUSED */ 
static void 

ChangeCursorOnGrab(w, junk, garbage) 
Widget w; 

caddr_t junk, garbage; 
{ 

SimpleMenuWidget smw = (SimpleMenuWidget) w; 
/* 

* The event mask here is what is currently in the MIT implementation. 

* There really needs to be a way to get the value of the mask out 

* of the toolkit (CD? 5/26/89). 
♦/ 



XChangeAhivePointerGrab(XtDisplay(w), BunonPressMask | BunonReleaseMask, 
smw-> simple jncnu.cursor, CunentTime); 
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} 

/* Function Name; MakeSetValuesRequest 

Description: Makes a (possibly recursive) call to SetValues, 

* I take great pains to not go into an infinite loop. 

* Arguments: w - the simple menu widget. 

* width, height - the size of the ask for. 

* Returns: none 
*/ 

static void 

MakeSetValuesRequest(w, width, height) 
Widget w; 

Dimension width, height; 

{ 

SimpleMcnuWidgct smw = (SimpleMenuWidget) w; 
Arg arglist[2]; 

Cardinal num_args = (Cardinal) 0: 

if ( !smw- > simplc_mcnu.rccursive_set_valucs ) { 

if ( (smw- > core. width != width) 1 1 (smw- > core. height !« height) ) { 
smw- > simple_menu.recursive_set_vaJues = TRUE; 
XtSetAig(arglist[num_args] , XtNwidth, width); num_args + + ; 
XtSetArg(arglist[num_args], XtNheight, height); num_args+ +; 
XtSetValues(w, arglist, num_args); 

} 

else if (XtIsRealized( (Widget) smw)) 

Rcdisplay((Widgct) smw, (XEvent •) NULL, (Region) NULL); 

} 

smw- > simple jnenu.recureive_set_values = FALSE; 

} 
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!• Function Name: GetMenuWidth 

* Description: Sets the length of the widest entry in pixels. 

* Arguments: w - the simple menu widget. 

* Returns: width of menu. 
*/ 

static Dimension 
GetMenuWidth(w, w_ent) 
Widget w, wjmt; 
{ 

SmeObject cur_entry = (SmeObject) w_ent; 
SimpleMenuWidget smw = (SimpleMenuWidget) w; 
Dimension width, widest = (Dimension) 0; 
SmeObject * entry; 

if ( smw- > simple_menu.menu_width ) 
return(smw- > core .width); 

ForAllChildren(smw, entry) { 
XtWidgetGeometry preferred; 

if (!XdsMauaged( (Widget) 'entry)) continue; 

if (*entry != cur_entry) { 

XtQueryGeometry(*entry, NULL, &preferred); 

if (prefcrred.requestjnode & CWWidth) 
width « preferred. width; 

else 

width - (*entry)->rectangle.width; 

} 

else 
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width «= (*entry)-> rectangle, width; 

if ( width > widest ) 
widest = width; 

} 

return( widest); 

} 

/* Function Name: GetMenuHeight 

* Description: Sets the length of the widest entry in pixels. 

* Arguments: w - the simple menu widget. 

* Returns: width of menu. 
V 

static Dimension 
GetMenuHeight(w) 
Widget w; 
{ 

SimpleMenuWidget smw = (SimpleMenu Widget) w; 
SmeObject * entry; 
Dimension height; 

if (smw- > simple jnenu. menu ^height) 
retmn(smw- > core. height); 

height = smw- > simple jnemnopjnargin + smw-> simple^menu.bonom^margin; 

if (smw- > simple jnenu.row_height « = 0) 
ForAllChildren(smw, entry) 

if (XtlsManaged ((Widget) *entry)) 

height + = (*enny)- > rectangle, height; 
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elsc 

height += smw->simple_menu.row_height * smw-> composite. num_children; 
rerurn(height); 

} 

/* Function Name: GetEventEntry 

* Description: Gets an entry given an event that has X and Y coords. 

* Arguments: w - the simple menu widget. 

* event - the event. 

* Returns: the entry that this point is in. 
*/ 

static SmeObject 
GetEventEnuy(w, event) 
Widget w; 
XEvent m event; 

{ 

Position x_loc f yjoc; 

SimplcMenuWidget sraw = (SimpleMenu Widget) w; 
SmeObject * entry; 

switch (event- > type) { 
case MotionNotify: 

x_loc = event- > xmotion.x; 

yjoc = event- >xmotion.y; 

break; 
case EnterNotify: 
case LeaveNoufy: 

xjoc = event- >xcrossing.x; 

yjoc = event- >xcrossing.y; 

break; 
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case BunonPress: 
case BunonRelease: 

x loc = event- >xbunon.x; 

yjoc = event- >xbunon.y; 

break; 
default: 

XiAppErTor(XtWidgeiToApplicationConiext(w) f 

"Unknown event type in GetEventEntry()/); 

break; 

} 

if ( (xjoc < 0) 1 1 (xjoc > = smw->coit.width) ! j (yjoc < 0) | j 
(y loc > = smw-> core. height) ) 
retum(NULL); 

ForAJlChildim(smw, enny) { 

if (IXtlsManaged ((Widget) »entiy)) continue; 

if ( ((*enU7)- > rectangle.y < yjoc) && 

((•cnny)->recungle.y + ('entry)- > rectangle.height > yjoc) ) 
if ( *entry = = smw- >simple_menu. label ) 

retura(NULL); /• cannot select the label. */ 

else 

return(*entry); 

} 

return(NULL); 

} 
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source/Select.c 



/* 

• Selection from list widget 



include "../mclude/xwave.lT 

void Select(w, closure, call_data) 

Widget w; 

caddr_t closure, calljlata; 

{ 

Selection sel = (Sclection)closurB; 

Widget button* FindWidget(scl- > button, w), 

sbell = Shel]Widget(sel->name.bunon,SW__below,NULL,NULL), 
form = FonnatWidget("sel_form\ shell), list_widgci, widgeis[3]; 

String »list=(sel->lisi_proc)0; 

Formltem items[]={ 

{ "scl^canccl" , "close" .0,0,FW jcon,NTJLL} , 
{"selJabcr,(String)scl- > action_name,l,0,FW_label,NULL}, 
{ "sel_view" ,NULL,0,2 t FW_view,NULL} , 

); 

XtCallbackRec list_caJlsD = { 
{Destroy , (caddr_t)shell} , 
{sel- > action _proc,sel- > action_closure}, 
{NULL.NULL}, 
. }, callbacks!] = { 
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{Destroy, (caddrj)shell}, 
{NULUNULL}, 

}; 

Arg args(l]; 

FillForm(form.THREE,it£ms,widgets,callbacks); 
XtSeiArg(args[0] ,XtNlist,list); 

list w idget=XtCreateManagedWidget("selJist",listWidgctClass ) widgets[2],args.ONE); 
XtAddCallbacks(list_widget,XtNcallback,list_caJls); 
XtPopup(shell.XtGrabExclusive) ; 

} 
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source/SraeBSBpr.c 



#if ( !defined(lint) &&. !defined(SABER) ) 

static char Xrcsid[] = "SXConsorxium: SmeBSB.c.v 1.9 89/12/13 15:42:48 kit Exp .$•; 
#endif 



/* 

* Copyright 1989 Massachusetts Institute of Technology 



* Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 
the above copyright notice appeal in all copies and that both that 

* copyright notice and this permission notice appear in supporting 

* documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* wrinen prior permission., M.I.T. makes no representations about the 

* suitability of this software for any purpose. It is provided "as is" 

* without express or implied warranty. 
• 

* M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

* BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

* OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION. ARISING OUT 
OF OR IN 

* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
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•/ 

/* 

» SmeBSBpr.c - Source code file for BSB puJl-right Menu Entry object. 

9 

•I 

^include <stdio.h> 
^include <Xll/IncrinsicP.h> 
include <Xll/StringDefs.h> 

#include <Xn/Xmu/Drawing.h> 

^include <X11/Xaw/Xawlnit.h> 
#include <Xll/Xaw/SiinpleMenu.h> 
^include "SmeBSBprP.h* 
#include <X11/Xaw/Cardinals.h> 

*define ONE_HUNDRED 100 

#definc offsct(field) XtOffsetfSmeBSBprObject, sme_bsb.field) 

static XtResource resources D = { 
{XtNlabel, XtCLabel, XtRString, sizeof(String), 

offset(labcl), XiRString, NULL}, 
{XtNvenSpace, XtCVertSpacc, XtRlnt, sizcof(int), 

offset(vert_spact), XtRImmediate, (caddr_t) 25}, 
{XiNleftBitmap, XtCLefiBitmap, XiRPixmap, sizcof(Pixmap), 

offset(left_bitmap), XtRImmediate, (caddr_t)None}, 
{XtNjustify, XtCJustiry, XtRJusufy, sizeof(XUustify), 

offset(jusiify), XtRImmediate, (caddxj) XtJustifyLeft}, 
{XtNrightBitmap, XtCRigbtBitmap, XtRPixmap, sizeof(Pixmap), 
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offset(right_bitmap), XtRlmmediate, (caddr_t)None}, 
{XiNlefiMargin, XtCHoruontaJMargins. XLRDimension, sizeof(Dimension), 

offset(left_margin), XtRlmmediate, (caddrj) 4}. 
{XtNrightMargin, XiCHorizomalMargins, XLRDimension, sizeof(Dimension), 

offset(rightjnargin), XLRImmediate, (caddrj) 4}, 
{XtNforeground, XtCForegTOund, XtRPixel. sizeof(Pixel), 

offset(foreground), XiRString, "XiDefauliFoieground"}, 
{XtNfont, XtCFont, XtRFontStmci, sizeof(XFontStnict *). 

offset(font), XiRString, "XtDefaultFont"}, 
{XtNmenuName, XtCMenuName, XtRString, sizeof(String), 
offset(rocnu_narae), XiRString, (caddrj)" menu"}, 

}; 

#undef offset 
/♦ 

* Semi Public function definitions. 
*/ 

static void RedisplayO, DestroyO, InitiaJizeO, FlipColorsO, PopupMenuO; 

static void ClassInitializeO; 

static Boolean SetVaJuesO; 

static XtGeoraetryResult Query Geometry 0; 

/* 

* Private Function Definitions. 
*/ 

static void GeiDefauliSize(), DrawBitmapsO, GetBitmapInfoO; 

- A. 

static void CreatcGCsO, DestroyGCsO; 

#define superclass (&smeClassRec) 
SmeBSBprClassRec smeBSBprClassRec = { 
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{ 

/• superclass */ (WidgctClass) superclass, 
/- class .name */ "SmeBSBpr", 

si2e */ sizeof(SmeBSBprRec), 

/* class.initializer •/ Classlnitialize, 
/* dass_pan_iniiiali2e*/ NULL, 
/* Class init'ed */ FALSE, 
/* initialize V Initialize, 
/* iniiializejiook */ NULL, 
/• realize */ NULL, 

/* actions */ NULL, 

/* num_acuons */ ZERO, 
/* resources */ resources, 

/• resource count •/ XtNurhber(resources), 
/* xrra_class */ NULLQUARK, 

/* compressjnotion */ FALSE, 
/* compress_exposurt */ FALSE, 
/* compress_entcrieave*/ FALSE, 
/* visible_intercst */ FALSE, 
/* destroy */ Destroy, 

/•resize */ NULL, 

/•expose */ Redisplay, 

/• set_values •/ SetValues, 
/* set values_hook */ NULL, 
'/* set values_aJmost */ XtlnhcritSetValuesAlrnost, 
/* get_values_hook */ NULL, 
/* accept_focus */ NULL, 
/* intrinsics version */ XtVersion, 
/* callback offsets */ NULL, 
/♦tmjable */ NULL' 

/* query_£eomeny */ Query Geometry, 

/* display_accelerator*/ NULL, 
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/• extension */ NULL 

}.( 

/* Menu Entry Fields */ 

/* highlight ♦/ FlipColors, 
/• unhighlight */ FlipColors, 
/» notify */ PopupMenu, 

/* extension */ NULL 

M 

/* BSB pull-right Menu entry Fields */ 
/* extension */ NULL 

} 

}; 

WidgetClass smeBSBprObjectClass = (WidgetClass) &smeBSBprClassRec; 



* 

* Semi-Public Functions. 

/* Function Name: Classlnhialize 

* Description: Initializes the SmeBSBprObject. 

* Arguments: none. 

* Returns: none. 
*/ 



static void 

ClassInitializeO 

{ 
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XawlnitializeWidgetSetO; 

XiAddConvcnex( XiRSrring, XiRJustify, XmuCviStringToJustify, NULL, 0 ); 

} 

/* Function Name: Initialize 

* Description: Initializes the simple menu widget 

* Arguments: request - the widget requested by the argument list. 

* new - the new widget with both resource and non 

* resource values. 

* Returns: none. 
*/ 

/* ARGSUSED */ 
static void 

Initialize(request f new) 
Widget request, new; 

{ 

SmcBSBprObject entry = (SmeBSBprObject) new, 

if (entry- >sme_bsb. label == NULL) 
entry- >sme_bsb. label = XtName<new); 

else 

entry- > sme_bsb.label = XtNewString( entry- > sme J>sb. label ); 

/* Xaw bug - bitmap initialization now performed */ 
if (entry- > smej>sb.left_biimap ! = None) GetBitmapInfo (entry, TRUE); 
if (entry- > sme_bsb.right_bitmap != None) GetBitmapInfo(entry, FALSE); 



CreateGCs(new); - 

GetDefaultSize(new, &(entry->rectaiigle.v/idth)..&(entry-> rectangle. height)); 

} 
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/• Function Name: Destroy 

Description: Called at destroy time, cleans up. 

Arguments: w - the simple menu widget. 
* Returns: none. 
•/ 

static void 
Destroy (w) 
Widget w; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
DestroyGCs(w); 

if (entry- >sme_bsb. label != XtName(w)) 
XtFree(enrry- > sroe_bsb. label); 

} 

/• Function Name: Redisplay 

Description: Redisplays the contents of the widget. 

* Arguments: w - the simple menu widget. 

* event - the X event that caused this redisplay. 

* region - the region the needs to be repainted. 

* Returns: none, 
*/ 

/* ARGSUSED ♦/ 
static void 

Redisplays, event, region) 
Widget w; 
XEvent * event; 
Region region; 

{ 
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GC gc; 

SmeBSBprObject entry = (SmeBSBprObject) w; 
int font_a$ccnt, fontjiesceni, yjoc; 

eniry->smeJ)sb.set_vaJues_area_cleared = FALSE; 

font ascent = entry- > sme_bsb. font- > max_bounds. ascent; 

font_descent = entry- >smejDsb.font->raax_bounds. descent; 

yjoc = entry- > rectangle, y; 

if (XtlsSensitive(w) &£ XtIsSensitive( XtParent(w) ) ) { 

if ( w XawSiinpkMenuGetActiveEntry(XtParent(w)) ) { 
XFillRectangle(XtDisplayOfObject(w), XtWindowOfObject(w), 
entry- > sme_bsb.norm _gc t 0, y_loc f 
(unsigned int) entry- > rectangle. width, 
(unsigned int) entry- > rectangle. height); 
gc = entry- >smc_bsb. rev _gc; 

} 

else 

gc = enny- > sme_bsb.nonn _gc; 

} 

else 

gc = entry- > sme_bsb.norm_gray _gc; 

if (entry- > sme_bsb.iabel ! = NULL) { 

int xjoc *= entry- > sme_bsb.Ieft_niargin; 
int len = strJen(entry- > sme_bsb.label); 
char * label = entry- > sme_bsb.label; 

switch(entry- > smebsb justify) { 
int width, t width; 
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case XtJustifyCenter: 

t width = XTextWidth(entry->smeJ>sb.foni, label, len); 

widih = entry- > rectangle, width - (entry- > sme_bsb.leftjnargin + 

entry- > sme _bsb.right_n)argin); 

x loc + - (width - t_width)/2; 

break; 
case XtJustifyRight: 

tjvidth = XTextWidth(entry->srae_bsb.font, label, len); 

x loc = entry- > rectangle. width - (entry- > smcj>sb. right jnargin + 

t_width); 

break; 
case XtJusiifyLeft: 
default: 

break; 

} 

yjoc += (entry- > rectangle. height - 

(font_ascent + font_descent)) / 2 + font_ascent; 

XDrawString(XtDisplayOfObject(w). XtWindowOfObject(w), gc. 
x_loc, yjoc, label, len); 

} 

DrawBitmaps(w, gc); 

} 



/* Function Name: SetValues 

Description: Relayout the menu when one of the resources is changed. 

* Arguments: current - current state of the widget. 

* request - what was requested. 

» new - what the widget will become. 
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* Returns: Done 
*/ 

/* ARGSUSED */ 
static Boolean 

SetValues(cunent, request, new) 
Widget current, request, new; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) new; 
SmeBSBprObject old_entry = (SmeBSBprObject) current; 
Boolean ret_val = FALSE; 

if (old_entry- > sme_bsb.label ! - entry- > sme_bsb.label) { 
if (old_entry-> sme_bsb.label != XtName( new ) ) 
XtFree( (char *) old_entry-> ane_bsb. label ); 

if (entry- > smej>sb. label ! = XtName(new) ) 

entry- > sme_bsb. label = XtNewString( entry- > sme_bsb. label ); 

ret_val - True; 

} 

if (entry- > rectangle.sensitive != old_entry- > rectangle. sensitive ) 
ret_val = TRUE; 

if (entry- > sme>b.left>trnap ! = old_entry- > sme>b.left_bitmap) < 
GetBitmapInfo(new, TRUE); 
ret_val = TRUE; 

} 

if (entry- >sme>b.right.bitmap != oldjtntry- > smc^b.rightjntmap) { 

GetBitmaplnfo(new, FALSE); 
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ret val = TRUE; 



} 



i 

1 1 



if ( (old_emry->sme_bsb.font != entry- >sme_bsb. font) 

(old entry- >sme_bsb. foreground ! = entry- > sme_bsb. foreground) ) { 

DestroyGCs(currem) ; 
CreateGCs(new); 
ret val = TRUE; 



if (ret_val) { 

GetDcfaultSize(new, 

&(entry- > rectanglcwidth), &(entry- > rectanglc.height)); 
entry- > sme_bsb.set_vaJues_area_clearrd = TRUE; 

> 

return(ret_val); 

} 

/* Function Name: Query Geometry. 

Description: Rerums the preferred geometry for this widget. 

* Arguments: w - the menu entry object. 

* itended, rerum_val - the intended and return geometry info. 

* Returns: A Geometry Result. 
* 

* See the Ictrinsics manual for details on what this function is for. 

* I just return the height and width of the label plus the margins. 
*/ 

static XtGeometryResult 
QueryGeometry(w, intended, return_val) 
Widget w; 
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XiWidgeiGeomeiry 'intended, *renirn_val: 
{ 

SmeBSBprObjcct entry = (SmeBSBprObject) w; 
Dimension width, height; 
XtGeometryRcsult ret_val = XtGeometry Yes; 
XtGeometryMask mode = intended- > request_mode; 

GetDefaultSize(w, &width, &height ); 

if ( ((mode & CWWidth) && (intended- > width !- width)) 1 1 
!(mode & CWWidth) ) { 
return_val- > rcquest_mode | = CWWidth; 
return_val- > width - width; 
ret val = XtGcometiy Almost; 

} 

if ( ((mode & CWHeight) && (intended- > height != height)) 1 1 
!(mode & CWHeight) ) { 
rerurn_val->request_inode | ■ CWHeight; 
retuni_val- > height = height; 
ret val = XtGeometry Almost; 

> 

if (ret_val = = XtGeometry Almost) { 
mode = return_val->requcst_mode; 

if ( ((mode & CWWidth) && (width = 
((mode & CWHeight) &.& (heighi 
return(XtGeometryNo); 

} 



= - entry- > rectangle. width)) && 
« = entry- > rectangle. height)) ) 



rerurn(ret_val); 
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/* Function Name: FlipColors 

* Description: Invert the colors of the current entry. 

* Ajguments: w - the bsb menu entry widget. 

* Rerurns: none. 
*/ 



static void 
FlipColors(w) 
Widget w; 
{ 

SmeBSBprObject entry « (SmeBSBprObject) w; 

if (entry- > sme_bsb.$et_values_area_cleared) return; 

XFDlRectanglc(XtDisplayOfObject(w) f XtWindowOfObjcct(w), 

entry- > sme_bsb.invert_gc t 6, (int) entry- > rectangle.y, 
(unsigned int) entry- > rectangle. width, 
(unsigned int) entry- > rectangle.beight); 

} 

* Private Functions. 

/* Function Name: GetDefaultSize 

* Description: Calculates the Default (preferred) size of 

* this menu entry. 

* Arguments: w - the menu entry widget. 
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* width, height - default sizes (RETURNED). 

* Returns: none. 
*/ 

static void 

GetDefaultSize(w, width, height) 
Widget w; 

Dimension * width, * height; 
{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 

if (entry- > smc^bsb. label - = NULL) 
•width = 0; 

else 

•width = XTextWidtb(entry->snic_bsb.foni. entry- >sme_bsb. label, 
stilen(entry- > sme_bsb.label)); 

•width +« entry- >sme_bsb.left_margin + entry- >smej>sb.right_raargin; 

•height = (entry- >sme_bsb. font- > maxjjounds.ascent + 
entry- > sme_bsb.font- > max_bounds. descent); 

•height = (-height * ( ONE_HUNDRED + 

entry- >sme_bsb.ven_space )) / ONE_HUNDRED; 

} 

/* Function Name: DrawBitmaps 

* Description: Draws left and right bitmaps. 

* Arguments: w - the simple menu widget, 

* gc - graphics context to use for drawing. 

* Returns: none 
*/ 
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static void 

DrawBitmaps(w, gc) 
Widget w; 
GC gc; 
{ 

int xjoc, y_loc; 

SmeBSBprObject entry = (SmeBSBprObject) w; 

if ( (entry- > sme_bsb.left_bitmap = - None) && 

(entry- >sme_bsb.right_bitmap == None) ) return; 



* Draw Left Bitmap. 
*/ 

y loc = entry- >rectangle.y + (entry- > rectangle.heignt - 

entry- > sme J>sb.leftJ>itmap_beight) / 2; 

if (entry- > sme_bsb.left_bitmap ! = None) { 
x loc = (entry- > sme_bsb. left_margin - 

entry- >sme_bsb.left_bitmap_width) / 2; 
XCopyPlanc(XtDisplayOfObject(w), entry- > sme_bsb.left_bitmap, 
XtWindowOfObject(w), gc, 0, 0, 
entry- > sme_bsb.left_bitmap_width, 
entry- > sme J>sb.leftJ)itrnap_beight, xjoc, yjoc, 1); 

} 
I* 

* Draw Right Bitmap. 
*/ 

y loc = entry- >rectangle.y + (entry- > rectangle.heignt - /* Xaw bug - yj 
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calculated from right J>itmap data */ 

entry- > sme J>sb.right J)itmap Jieight) / 2; 

if (entry- > sme_bsb. right J>itmap ! = None) { 
x loc = entry- > rectangle. width - (entry- > smcj>sb.right_margin + /* Xaw bug - + 

rather than - sign */ 

entry- > smej>sb. right J>itmap_width) / 2; 
XCopyPlane(XtDisplayOfObject(w), entry- > smej>sb.right Jntmap, 
XtWindowOfObject(w), gc, 0, 0, 
entry- > sme^bsb.right^bitmap^width, 
entry- > sroe J>sb.right J)itraapjieight, xjoc, yjoc, 1); 

} 

} 

/* Function Name: GetBitmapInfo 

* Description: Gets the bitmap information from either of the bitmaps. 

* Arguments: w - the bsb menu entry widget. 

* isjeft - TRUE if we are testing left bitmap, 

» FALSE if we are testing the right bitmap. 

* Returns: none 
' */ 

static void 

GetBitmaplnfo(w, isjeft) 
Widget w; 
Boolean isjeft; 

{ 

SmeBSBpiObjcct entry = (SmeBSBprObject) w; 
unsigned int depth, bw; 
Window root; 
int x, y; 

unsigned int width, height; 
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char buflBUFS-IZl; 

if (isjeft) { 

if (entry- > sme_bsb.left_bitmap ! = None) { 
if (!XGetGeometry(XtDisplayOfObject(w), 

entry- >sme_bsb.left_bitmap, &root, 
&x, &y, &width, fcheight, &bw, &depth)) { 
sprimfCbuf. "SmeBSB Object: %$ %s \"%s\V, "Could not", 
"get Left Bitmap geometry inforrnation for menu entry 
XtName(w)); 

XtAppEnor(XiWidgetToApplicarionCont£Xt(w), buf); 

} 

if (depth != 1) { 

sprintf(buf, "SmeBSB Object: %s\"*s\"%s.\ 
"Left Bitmap of entry \ 
XtName(w), " is not one bit deep."); 

XtAppErTor(XtWidgetToApplicaiionCont£Xt(w), buf); 

} 

entry- >sme_bsb.]eft_bitmap_width = (Dimension) width; 
entry- > smc J)sb Jeft J)itmap_heigbt = (Dimension) height; 

} 

} 

else if (entry- > sme_bsb.right_bitmap ! = None) { 
if (!XGetGeometry(XtDisplayOfObject(w), 

entry- > sme_bsb.right_bitmap, &root, 
&x, &y, &width, &heighl, &bw, &depth)) { 
sprintf (buf, "SmeBSB Object: %s %s \"%s\V, "Could nor. 

"get Right Bitmap geometry mtonnation for menu entry ", 
XtName(w)); 

XtAppEnor(XtWidgetToApplicaiionContext(w), buf); 

} . 

if (depth != 1) { 
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sprintf(buf, "SmeBSB Object: %s V%s\"%s.", 

•Right Bitmap of entry XtName(w), 

• is not one bit deep."); 
XtAppError(XtWidgetToApplicaiionContext(w), buf); 

} 

entry- >sme_bsb.right_bitmap_width = (Dimension) width; 
entry- >sme_bsb.right_bitmap_beight = (Dimension) height; 

} 

} 

/* Function Name: CreateGCs 

* Description: Creates all gc's for the simple menu widget. 

* Arguments: w - the simple menu widget. 

* Returns: none. 
*/ 



static void 
CreateGCs(w) 
Widget w; 

{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
XGCValues values; 
XtGCMask mask; 

vaJues.foregiound = XtParent(w)- > core.background jixel; 
values.background = entry- >sme_bsb.foreground; 
values, font = entry- >sme_bsb.font-> fid; 
values. graphics exposures = FALSE; 

n^k = foreground | GCBackgxound | GCFont | GCGrapbicsExposures; 
entry- >sme_bsb.rev _gc = XtGetGC(w, mask, &values); 

values.foreground = entry- >sme_bsb.foreground; 



SUBSTITUTE SHEET (RULE 26) 
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values. background « XtPaxent(w)- > core.background_pixel; 
entry- >sme_bsb.norm_gc = XtGetGC(w, mask, &values); 

values, fillstyle = FillTiled; 

values, tile = XjnuCreateStippledPixmap(XtScreenOfObject(w), 

;ntry->sme_bsb. foreground, 
XtParent(w)- > core.background_pixel, 
XtParent(w)- > core, depth); 

values. graphics_exposures = FALSE; 

mask ! = GCTile | GCFillStyle; 

entry- >sme_bsb.norm _gray_gc = XtGetGC(w, mask, &vaJues); 

values. foreground A = values. background; 
values. background = 0; 
values, function = GXjcor; 

mask = GCForcground | GCBackground | GCGraphicsExposures | GCFuncrion; 
entry- >sme_bsb.invert_gc = XtGetGC(w, mask, &values); 

} 

/* Function Name: DestroyGCs 

Description: Removes all gc's for the simple menu widget. 

• Arguments: w - the simple menu widget. 

* Returns: none. 
*/ 

static void 
DestroyGCs(w) 
Widget w; 
{ 

SmeBSBprObject entry = (SmeBSBprObject) w; 
XtReleaseGC(w. entry- >sme_bsb.norm_gc); 
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XtRcleascGC(w, entry- > srae_bsb.norro_gray_gc); 
XtRcteaseGC(w, entry- > sme_bsb.rev_gc); 
XtReleaseGC(w, entry- >smc_bsb.invert_gc); 

} 

#ifdef apollo 



* The apollo compUer that we have optomizes out my code for 

* FlipColorsO since it is static, and no one executes it in this 

* file. 1 am setting the function pointer into the class structure so 

* that it can be called by my parent who will tell me to when to 

* highlight and unhighlight. 



void _XawSmeBSBApolloHack 0 
{ 

FlipColorsO; 

} 

#endif /• apollo •/ 

/• Hacked copy of PopupMenu from MenuBunon widget to replace XdnhcritNotify •/ 
static void 

PopupMcnu(w, event, params, numj>arams) 
Widget w; 
XEvent * event; 
String * params; 
Cardinal * num^params; 

{ 

SmeBSBprObject mow * (SmeBSBprObject) w; 
Widget menu, temp; 
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Arg arglist[2]; 
Cardinal num_args; 

int menu x, mcnu_v, memrwidth, menu_height, bunon_width, bunon_hcight; 
Position button_x. bunon_y; 

temp = XtParent(w); /- Shell not menu entry is parent of menu •/ 

while(temp ! = NULL) { 
menu = XtNaroeToWidget(iemp, mbw->sme_bsb.menu_name); 

if (menu = = NULL) 

temp = XtParent(temp); 
else 

break; 

} 

if (menu = = NULL) { 
char «Tor_bufTBUFSIZ]; 
sprinrf(error_buf, "MenuBunon: %s %s.", 

"Could not find menu widget named", mb w- > sme_bsb . menu_name) ; 
XtAppWarning(XtWidgetToApplicationContexi(w), error_buf); 

rerurn; 

} 

if (!XtlsRea]i2ed(menu)) 
XtRealizeWidget(menu); 

menu width = menu- > core. width + 2 * menu- > core. borderjvidth; 
bunon_width « w-> core. width + 2 * w.>corc.border_width; 
bunon_height = w-> core .height + 2 * w->core.border_width; 

mcnu_beight = menu- > core. height + 2 • menu- > core. border_width; 



XtTranslateCoords(w, 0, 0, &bunon_x, &button_y); 
menu x = button_x + button_width; 
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menu^y = bunoiry; 

if (menu_x < 0) 

menu_x = 0; 
else { 

int scr_width = WidthOfScreen(XtScreen(menu)>; 
if (menu_x + menujvidth > scr_width) 
menu_x = scr_width - menu_width; 

} 

if (menu j < 0) 

menu_y = 0; 
else { 

int scr height = HeighiOf5creen(XtScreen(menu)); 
if (menu_j + menu_beigbt > scr_height) 
mcnu_y = scrjieight - menujieight; 

} 

num_args = 0; 

XtSetAig(arglist[num_args] f XiNx, menu_x); num_args+ + ; 
XiSetArg(arglist[num_args], XtNy, menu_y); num_args+ + ; 
XtSetVahies(menu, arglist, num_axgs); 



XtPopupSpringLoaded(inenu); 

> 
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source/Storage. c 



Routines 10 allow video frames to be stored in memory 

or on disk: NewFrame, GeiFramc, SavcFrame, FreeFrame, SaveHeader, 

CopyHeader. 
*7 

^include "../include/xwavch" 

extern FILE *zropenO; 

extern void zseekO; 

extern void zclose(); 

void NewFrame( vid, number) 

Video vid; 
int number; 

{ 

if (vid- > data[0] [number] = = NULL) { 

int channel, channels* vid- > type* =MONO?l:3; 

for(channel=0;channel < channels;channel+ +) 
vid- > data[channel] [number] = (short 
•)MALLOC(sizeof(sbon)»Si2e(vid,channel,0)*Size(vid,channel,l)); 

} 

} 

void GetFrame(vid,number) 



Video vid; 
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int number; 



if (vid- >data[0] [number] = = NULL) { 

char file_name[STRLEN], ♦wholejraroe; 
FILE *fp, *fopen(); 
int pid, r, c, channel, 

start = vid- > x_offset + vid- > cols'vid- > y_offset, 

end = (vid- > rows- vid- > y_offset-vid- > sue[ 1 J)*vid- > ccls-vid- > x.offset. 

inter= vid- > cols-vid- > size[0]; 

NewFrame(vid,number); 

sprmtflfile.name/ %s%s/%s/%s%03d\0",global- > bome,IMAGE_DIR.vid->path.vid->f 
iles[0] = = '\07vid- > name:vid- > files .number + vid- > start); 

Dprinrf( "Reading file %s\n\file_name); 

fp«ziopen(filejiaine,&pid); 

if (vid- > precision = = 0) whole Jramc = (char 
»)MALLOC(vid- > rows*vid- > cob); 

zseek(fp,vid-> offset); 

for(cr^el=0;cl U u m el<(vid->rype= = MONO?l:3);channel + +) { 
int shiftI2] = {vid- > type = = YUV 
channel! =0?vid- > UVsample[0]:0,vid- > type- - YUV && 
channel! =0?vid- > UVsample[l]:0}; 

Dprintf("Reading channel %d\n", channel); 
if (vid- > precision* «0) { 

if(0= =fread( whole_frame,sizeof(char),(vid-> cols > >shiftlO])*(vid-> rows > >shift[l]). 
rp)){ 

Dprinn("Error whilst reading %s\n\file_name); 



... rrr r»l ICCT lOl II C 1C\ 
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EprintfC'Enor whilsx reading %s\n", filename); 

} 

for(r = 0;r < vid- > size[ 1 ]>> shift[ 1] ;r + +) 

for(c=0;c<vid->size[0]> >shift(0];c++) { 
shon 

tt ^chifimT>+c + ((vid->y offset >->shift(ll)+r)*( 
pcl = cii(whole_framc[(vid->x_offset> >shifilO])+c + uvia 7 _ 

vid- > cols > > shift[0])]); 

vid- > dautchannelllnuxnberHc.rnvid- > > > S hi ft{ 0])) = vid-> ne g anve?-l-pel:pel; 

} 

} else { 

if (start! =0) 2seek(fp,si2rt*si2cof(shon)); 
for(r=0;r<vid->size[l]> > shift[l];r++) { 

if(0 ==fread(&(vid->^ 
vid- > size[0] > > shiftlOJ.rp)) { 

Dp rintf( "Error whilst reading 



%s\n\file_narne); 
%s\n",file name); 



EprintfCErTor whilst reading 
} 

if (inter! =0) zseek(fp,inter*sizcof(short)); 

if (vid- > negative) 

fortc=0;c < vid- > si2e[0] > > shiftlO];c+ +) 

mber][c +r*(vid- > size[0] > > shiftlO])] ; 
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source/Storage.c 



/* 

Routines to allow video frames to be stored in memory 

or on disk: NewFrame, GetFrame, SaveFrame. FreeFrame. SaveHeader, 

CopyHeader. 
*/ 

^include "../inciude/xwavch" 

exieni FILE *zropenO; 

extern void zseekO; 

exicm void icloscO; 

void NcwFramc(vid,numbcr) 

Video vid; 
int number; 

{ 

if (vid- > data[0][numbcr] = = NULL) { 

int channel, channels = vid- > type MONO? 1:3; 

for(channel= 0;channel < channels ;channel + +) 
vid- > datatchannel]lnumber] = (short 

.)MAIXOC(siz«)f^ 
} 

} 

void GetFrarr.e(vid,number) 



Video vid; 
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ini number; 



if (vid- > daia[0][number] = = NULL) { 

char file_narae(STRLEN], *whole_frame; 
FILE *tp, *fopen(); 

int pid, r. c, channel, 

sian = vid- >x_offset+ vid- > cols* vid- >y_off set, 

end = (vid- > rows-vid- > y_offset-vid- > size[ 1 ])* vid- > cols- vid- > x_offset, 

imer= vid- > cols-vid- > size[0]; 

NewFrame(vid.number); 

sprinrf(file_name, " %s%s/%s/%s%03d\0", global- > home ,IMAGE_DIR, vid- > path, vid- > f 
iles(0] = = '\0'?vid- > name:vid- > files,number+ vid- > stan); 

Dprintf("Reading file %s\n",file_name); 

fp=zropen(file_name,&pid); 

if (vid- > precision = = 0) wholejrame = (char 
•)MALLOC(vid- > rows*vid- > cols); 

zseck(fp,vid-> offset); 

for(chaiinel=0;channel<(vid->!vpe= = MONO?l:3);channel + +) { 
int shift[2] = {vid- > type = = YUV && 
channel! =0?vid- > UVsample[0]:0,vid- > type= = YUV && 
channel != 0?vid- > UVsaraplel 1 ] :0} ; 

DprimffReading channel %d\n" .channel); 
if (vid- > precision = =0) { 

if(0= = fie a d(whole_frame,si2eof(char),(vid- > cols > > shi ft[0])*(vid- > rows > > shiftfl]), 
fp)){ 

Dprintf( "Error whilst reading %s\n\file_name); 
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EprimfCEnor whilst reading %s\n",file_name); 

} 

for(r=0;r < vid- > size[l] > > shifi[l];r+ +) 

for(c = 0;c<vid->si2e[0]> >shift[0];c + +) { 

short 

pcl«cii<whol^ 
vid- > cols > > shift[0])]); 



vid->datalchannel]^^ 

} 

} else { 

if (start! =0) zseck(fp.start*sizeof(short)); 
for(r=0;r < vid- > size[l] > > shift[l];r+ +) { 

if(0= = fread(&(vid- > daulchar^lllnumbcrllr^vid- > size[0] > > shift[0])]),sizeof (short), 
vid- > size[0] > > shift[0],fp)) { 

Dprintf( "Error whilst reading 



%s\n",filc_namc); 
%s\n\file name); 



Eprintf( "Error whilst reading 
} 

if (inter! =0) zseek(fp,inter*si2eof(short)); 

if (vid- > negative) 

for(c =0;c < vid- > sizelO] > > shift(0];c+ +) 

vid-><iata[channel)[number]lc + r*(vid->size[0]> > sbift[0])]=-l-vid->ciatalchannel]lnu 
mber][c +r*(vid- > sizelO] > > shiftlO])]; 
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void SaveHeader(vid) 



Video vid; 



{ 

FILE *fp, *fopcn(); 

char filc_namc[STRLENl; 

String rypesD = {"MONO","RGB"."YUV"}; 

DprintffSaveHeader %s\n\vid->name); 

sprmrf(file_name, •%$%«/ %s%s\0" .global- > home, VIDDIR, vid- > name, VTOEXT); 

fp= fopen(file_name,"w"); 

fprintf(fp. "Path \" %s\"\n" .vid- > path); 

if (vid- > fiks[0]! = '\0') fprintf(fp."Files V %s\"\n" ,vid- > files); 

if (vid- > type = = YUV) fprintf(fp,"Type %s %d 
%d\n\types[vid- > rype],vid- > UVsample[0].vid-> UVsamplc[l]); 

else fprintf(fp,"Type %s\n",rypes[ vid- >typej); 

if (vid- > rate! = 0) fprintf(fp, 'Rate %d\n" ,vid^ > rate); 

if (vid- > disk) fprintf(fp,"Disk\n"); 

if (vid- > gamma) fprintf(fp,"Gamraa\D"); 

fprintf(fp t "Stan %03d\n",vid-> start); 

fprintf(fp, "Length %d\n",vid-> size[2]); 

fprmtf(fp,"Dimensions %d %d\n",vid- > cols.vid- > rows); 

switch(vid->trans.type) { 

case TRANS_None: fprintf(fp, "Transform None\n"); break; 
case TRANS Wave: fprintf(fp, "Transform Wavelet %d %d 
W.vid- > trans.wavdet.spacel03.vid- > trans. wavelet.space[n,vid-> trans, wavelet.dim 

?"Yes": "No"); break; 
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} 

fprinifCfp. "Header %d\n" ,vid- > offset): 

fprinrf(fp, "Offsets %d %d\n".vid-> x_offsct,vid->y_offset): 

fprintf(rp, B Size %d %d\n",vid- >-size(0],vid-> sized ]); 

fprintf(fp, "Precision %d\n" , vid- > precision); 

fdose(fp); 

} 

Video CopyHcader(src) 

Video sre; 

{ 

Video dst=(Video)MAIXOC(sizeof(VideoRec)); 
int channel; 

Dprinrf("CopyHcader %s\n\src); 

strcpy(dst- > path.src- > path); 

snxpy(dst- > name ,src- > name); 

dst-> type -src-> type; 

dst-> disk =src-> disk; 

dst- > gamma = sre- > gamma; 

dst- > negative = False; 

dst- > rate = sre- > rate; 

dst- > start* sre- > start; 

dst- > sizelO] = sre- > size[0] ; 

dst- > size[l] = sic- > size[l]; 

dst- > size[2] = sre- > size[2]; 

dst- > UVsample[0] «= sre- > UVsample[0] ; 

dst- > UVsarople[ 1] = sre- > UVsample[l] ; 

dst- > offset =0; 

dst- > cols = sre- > size[0] ; 
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dst- > ro ws = src - > s ize [ 1 ] ; 

dst->x_offsct=0; 

dst->y_offsct=0; 

dst- > trans = src- > trans; 

dst- > precision* src- > precision; 

for(chann C l = 0;ch a nnel < (src- > rype= =MONO?l :3):channel + +) 

dst- >dai»[channel] = (short ")MALLOC(src-> size(2]*sizeof(short •)); 

rcturn(dst); 
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sour ce/Trans form .c 



Transform video using wavelet transform 

*/ 

/^include. "xwave.b" 
^include •Transform.h" 
extern short RoundO; 

void DropVideo(w,closure,calljiata) 

Widget w; 

caddr t closure, calljlata; 

{ 

Video video ~ global- > videos- > next; 
int frame, channel; 



for(channel=0;chanBel< (global- > videos- > type = = MONO? 1 : (global- > videos- > type = 

= YUV?3:4));channel+ +) 

if (global- > videos- > data[channel]! « NULL) { 

for (frame =0;frame< global- > videos- > size[2];frame+ +) 
if (global- > videos- > data[channel][frame] ! =NULL) 

XtFree(global- > videos- > dau[channel][frame]); 

XtFrce(global- > videos- > data [channel]); 

} 

XtFree(global- > videos); 
global- > videos = video; 
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} 

void ChangePrecision(src,dst. frame, old, new) 

Video src, dsi; 

ini frame, old, new; 

{ 

int channel, i; 

if(src!=dst j | old! = new) { 
int shift = new-old; 

Dprintf("Changing precision %d to %d for frame %d\n\old,new,frame); 
for (chaimel=0;chaiinel<(src->rype==MONO?l:3);cnannel + +) { 
int si2e=Si2e(src,channel,0)*Si2e(src T channel,l); 

for(i«»0;i<size;i + +) 

dst- > data[channel][frame][i] = shift< 0?Round(src- > data[chaimcl][frame][i3,-shifi):(snift 
= =0?src- > data[channel][frame][i]:src- > dat3[charmel][frame][i] < < shift); 

) 

} 

} 

void TraiisformCirl(w f closurc,call_dflta) 

Widget w; 

caddr t closure, calljiata; 

{ 

TransCtrl ctrl=(TransCtrl)cIosurc; 
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Video src = ctrl->src, dst=CopyHeader(src); 
long i. frame, channel; 

Dprintf("TransformCirl\n n ); 

strcpy(dst- > name ,ctrl- > name); 

dst- > trans.type =TRANS_Wave; 

dst- > trans.wavelet.spacc[0] =ctrl- > space[0]; 

dst- > trans.wavelet.space[l] =ctil- > space[l]; 

dst- > trans.wavelet.dirn = Ctrl- > dim; 

dst- > precision=ctrl- > precision; 

strcpy(dst- > files,dst- > name); 

if (dst-> disk) SaveHeader(dst); 

if <src- > trans.type! =TRANS_Wave) { 

src- > trans .type = TRANS_Wave; 

src- > trans.wavelet.space[0] =0; 

src-> trans.wavelet.spacell]=0; 

} 

if (src- > trans. wavelet.spacelO]! =dst- > trans.wavclct.spacc[0] 1 1 
src- > trans. wavelet.space[l] ! =dst- > trans.wavelet.space[l]) 
for(frame =0;frame < dst- > si2e[2];frame + +) { 
int 

maxj 5 rccision= src- > prccision> dst- > prccision?STC- > precision: dst- > precision; 

Dprintf("Processing frame %d\n", frame); 
NewFrame(dst,frame); 
GctFrame(src, frame); 

ChangePrecision(src,dst,frame.src- > precision,maxj)recision); 
for (cl^l=0;cr^el<(src->t y pc==MONO?l:3);cbanncl+-f) 



int oct src 



=src- > irans.wavelct.spacefchaBnel = = 0?0: 1], 
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oct dsi=dst-> trans, wavelet, space (channel = =0?0:1], 

si2e[2] = {Si2e(dsi,channel.0),Si2e(dst.channel.l)}; 

if (oct_src!=oct_dst) 
Convolve(dsi-> daulchannel] [frame] .Ctrl- > dirn.size,oct_src,oct_dst); 

} 

ChaDgePrecision(dst,dst,frame.max j3recision,dst- > precision); 
SaveFrame(dst,frame) ; 
FreeFrame(dst.frame); 
FreeFrame(src .frame) ; 

} 

if (sre- > trans.wavelet.spacefO] = =0 && sre- > trans.wavelet.space[l] = =0) 

sre- > trans .type « TRANS_None; 

if (dst->trans.wavelet.space[0] = =0 && dst-> trans. wavelet.space[l] = =0) { 

dst- > trans .type = TRANS_None; 

if (dst- > disk) SaveHeader(dst); 

} 

dst- >next= global- > videos; 
global- > videos = dst; 

} 

void Transtype(w,closure,call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Video vid=(Video)closure; 



if (vid->trans.wavelet.space|0] = =0 && vid->trans.wavelet.space[l] = =0) 
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vid- > trans . type = TRANS None: 
} 

void BatchTransCtrl(w,clo«aire.call_data) 

Widget w; 

caddxj closure, call_data; 

{ 

TransCtrl ctrl=(TransCtrl)closure; 

if (Ctrl- > sre = = NULL) Ctrl- > sre = FindVideo(ctrl- > src.name, global- > videos); 
if (Ctrl- > sre- > irans. type = =TRANS_Wavc) 
ccrl- > dim = Ctrl- > sre- > trans, wavelet.dirn; 
TransfonnCtil(w .closure ,call_data); 

} 

TransCtrl InitTransCtrl(name) 
String name; 

{ TransCtrl C trl=(TramCul)MAl-LOC(sizeof(TransCtrlRe C )); 

strcpy(ctrl- > src_name,name); 
strcpy(ctrl- > name .name); 
ctrl- > dim = False; 
Dprintf("Transform\n"); 
return(ctrl); 

} 



#defme TRANSJCONS 16 
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void Tran5form(w.closure.caJ]_dau) 

Widget w; 

caddr_t closure, call_data; 



{ 

Video video =(Video)closure; 

TransCtrl cirl=InitTransCtrl(video->name); 

Numlnput spac e lnput = (Nunilj 1 put)MAli(X;(2*si2eof(NunuJiputRec)), 

preclnpm = (NumInput)MALLOC(si2eof(NumInputRec)) ; 

Message msg=NewMessage(cxrl-> name,NAME_LEN); 
XtCallbackRec destroy_callQ={ 

{Free,(caddrj)ctrl}, 

{Free , (caddr J)spacelnput} , 

{Free . (caddr_t)prcclnput} , 

{CloseMessage,(caddrj)msg} , 

{NTJLL,NULL}, 

}; 

Widget parent =FindWidget("fnn_traiisfonn",XtPareiit(w)), 

shell = SheHWidget("transfonn" ,parent,SW_below,NULL.destroy_call). 

fonn = FonnatWidgeK •transjorm" , shell), 

widgetstTRANSJCONS]; 

Fonnltcm itemsQ-{ 

{ •trans_cancel", •cancel" ,0.0,FW_icon,NULL} , 
{ "trans^confinn", "confirm", 1 ,0,FW _icon,NULL}, 
{*transjitle", "Transform a video",2,0,FWJabel,NULL}, 
{ "tnuuvid Jab" . "Video Name: " ,0,3 .FWJabeUNULL} , 
{ "trans.video" ,MJIX,4,3,FWjext,(Strag)msg} , 

{"nans Jim Jab"/Duxction:-.0,4,FW_label,NULL}, 
{"rians_dim\NUIX,4,4,FW^n,(Strmg)i&ctrlOdim}, 



WO 94/23385 



PCT/GBW/0M77 



- 357 - 

{-tnins_bit5_int",NULL.0.6.FW_integcr,(Striiig)precInput}, 
{-trans_biis.down".NULL,4,6,FW_down,(Siring)prccInput}. 
{ "trans^biis_up" ,NULL,9,6,FW_up,(Siraig)precInput} l 

{"trans_spcO>t\NUlX.0.8.FW>tcger,(Siring)&spaceInputlO]}, 

{"trans_spc0jlown\NlJIi.4.8,F^ 
{"trans_spc0j^WLL.12,8.FW^^ 

{"tTaiis_spcl>t\>miX.OJl.FW>u : ger,(String)&spacclnputll]}, 
{"traiis_spcljiown\NULL,4,ll,FWJ^ 

{"trans_spcl_up\NUliJ5Jl,FW_up,(String)&spacelnput[l]}, 

}; 

XiCaJlbackRcc callbacksO = { 
{ Destroy, (caddi_t)she 11}, 
{NULL.NULL}. 
{TransfonnCtrl, (caddrj)ctrl} , 
{Dcstroy,(caddr_t)shcll} , 
{NULL.NULL}, 

{CbangeyN,(caddr_t)&ctrl->dini}, {NULL, NULL}, 
{NumIncDec,(caddrj)precInput}, {NULL.NULL}. 
{NumIncDec,(caddrj)precInput}. {NULL,NULL} , 
{NumlncI>ec,(caddrj)&spaceInput[OJ}, {NULL.NULL}, 
{NumIucDcc,(caddTj)&spacelnpm[0]}, {NULL.NULL}, 
{NumlDcDcc,(caddr_t)&spaccInput[l]}. {NULL.NULL}, 
{NumIncDec,(caddrj)&spaccInput[lJ}, {NULL,NULL}, 

}: 

DprintfCTransfonnXn''); 

msg->rows=l; msg->cols=NAME_LEN; 

Ctrl- >src= video; 

if (video- > trans. rype= =TRANS_Wavc) { 

Ctrl- > space[0] = video- > trans.wavelet.spacc[0]; 
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ctrl-> space[l] = video- > trans, waveiet.spacefl]; 
Ctrl- > dim = video- > trans, wavelet, dim: 
} else { 

Ctrl- > space[0] =0; Ctrl- > space[l] =0; 
ctrl- > dim = False; 

} 

Ctrl- > precision = video- > precision; 

spac £ InpmlO].foni ia t=video->rvpe = =YUV?-Y-S P ace: %d":"Space: %d"; 

spacclnpm[0].max=100; 

spacelnput[0].min=0; 
spa«lnpuilO].value- &ctrl- > space[0]; 

if (video- > type - =YUV) { 

spaceInput[l].fonnat= "UV-Space: %d\ 

spacelnput( 1] .max - 1 00; 

spacelnput[l].min=0; 

spacelnput[ 1] . value = &ctrl- > space[l] ; 

} 

preclnput- > format = "Precision: %d"; 

preclnput- > max = 16; 

preclnput- >min=0; 

preclnput- > value =&ctrl- > precision; 

FillFonn(fonn,TRANS JCONS-(video- > type- = YUV?0:3),items.widget S ,callbacks); 
if (video- > trans . rype = = TRANS_Wave) XtSetSensiuve(widgets[6],False); 
XtPopup(shell,XtGrabExclusive); 

} 
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source/Update.c 




/* 




Update Image, Info and InfoTcxt from positional information 




•/ 




^include "../include/xwave.b" 




^include <varargs.h> 




extern int CompositePixelQ; 




extern int DitherO; 




extern short RoundO; 




extern int ReMapO; 




extern Palette FindPaJetteO; 




char *ResizeData(size) 




int size; 




{ 




static char *data»NULL; 




static int data_sizc=0; 




if (size!«data_size) { 




Dprinrf("New frame roemory\n B ); 




if (data! = NULL) XtFree(data); 




data = (char *)MALLOC(size); 




data_size=size; 




} 




retura(data); 




} 
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Pixmap Updaiclmage(frame) 
Frame frame; 

{ 

int x, y, i; 

Display •dpy=XtDisplay(global->toplevel); 
void CvtlndexO, UpdatePointO; 

Palette pa l=FindPaletie(global->palettes.franie-> palette); 

Video vid=frame-> video; 

int S crn=XDefaultScreen(dpy), depth=DisplayPlanes<dpy,scrn), 

size[2] - {Size<vid,fraine- > channel,0),Size<vid,fTame- > channel.l)}, 
img_size[2] - {size[0] < < frame- > zoom,size[l] < < frame- > zoom}, 
bpl=(img„siz£l0]*depth+7)/8, ncw_size = img_size[ 1] •bpl, 
space=vid-> trans.wavelet.space[vid-> type- - YUV &£ 

frame- > channel! =0 && frame- > channel! = 3?1 :0]; 
char »data=ResizeData(new_size); 
Xlmage 

*image=XCrcatclm a ge<dpy .global- > visinfo- > visual,dcpm.ZPixmap.O,data,img^ize[0],i 

mg_size[l],8,bpl); 
Pixmap 

pixmap-XCreatePixmapCdpy,^ 
DpTintf("Updatelmagc\n"); 

if (global->levels==2 && frame- > channel 3) frame-> channel =0; 
for(y=0;y<siz«[l];y++) for<x=0;x<size[0];x++) { 
int data_x=x, data_y=y, offx, offjr, oct; 

if (vid- > trans, type = =TRANS_Wave) 
Cvdiu!ex(x f y,size|0],si»[l],space,&daia„x f &data - y,&oct); 

for(off_x=0;off_x < 1< < frame- > zoom;off_x + +) 

for(off_y =0;off_y < 1< < frame- > zoom:off_y ++) { 
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int img_x = off_x + (x < < frame- > zoom), 
i m g__y=off_y+(y< < frame- > zoom), 

pix=ComposiiePixel(rrame,daia_x,dau_y,img_x,img_y); 

XPuiPiwUimage,^ 
} 

} 

XPutlina g e(dpy,pixin^ 

if (frame- > point_switch= -True) UrxiatePoiirt(dpy,fTame,pixinap); 

XtFree(image); 
returD(pLxmap); 

} 

void Cvalndex(x,y,max_x,max_y,oct,ret_x,rct_y,rct_oct) 
im x. y, max_x, max_y, oct, *ret_x. Tttjr, 1et_oct; 

{ 

Boolean hgx=x> =(max_x> > 1), hgy=y> =(maxjr> > 1); 

*ret_x - hgx?x-(max_x > > l):x; 
*ret - y=hgy?y-(max_y> > l):y; 
if (!hgx &A !hgy && oct> 1) { 

CvUBdex(* re t.x.* rt U,max.x> > l,ma*J> > l,ocl-l,ret_x,xe U ,ret_oct); 
*rctjc= *ret_x< <1; 
*ret_y= *ret_y< <1; 
*ret_oct+ = l; 
} else { 
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•ret_x=Cret_x< <l) + hgx: 
»rct_y=(*ret_y< <'l)+hgy; 
•ret_oct = hgx ! | hgy?0:l; 

} 

} 

void Updatclnfo(framc) 
Frame frame; 

{ 

Message msg=frame-> msg; 
Video vid = frame- > video; 

int *locn= frame- > point- > location. posn[2] « {locn[0],locn[l]}, 
channel =3 = = frame- > channel?0:fraine- > channel, 
width = S ize(vid .channel ,0) ; 

short *data= vid- > data [channel] [frame- > frame]; 

msg-^nfo.ptrlOJ^XO'; 

msg- > info, length »0; 

if (vid- > type = =YUV && channel! =0) { 

posn[0] = posnlO] > > vid- > UVsample[0]; 

posn[l] =posn[l] > > vid- > UVsample[l]; 

} 

if (vid- > trans.rype! =TRANS_Wave) 

Mprintf(msg, "Point : x-%03d y-%03d t-%03d 
c = %4dMocn[0].locn[l],frame- > frame+ vid- > stan,data[posn[0]+Size(vid.channel.O)*po 

sn[l]]); 

else{ 

int octs = vid- > trans.wavelet.space[vid- >type== YUV && 
channel! =0? 1:0], 

X, Y, oct, sub, 
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blkDC[2] = {(po5n[0]> >octs)&-2,(posn[l]> >ocis)&-2), 

offT>C[2] = {(posn[0]> >octs)&l,(posn[l]> >ocis)&l}; 



MpriDtf(msg, "Point : f= %03d x = %03d 
y = %03d\n" .frame- > frame + vid- > stan,locn[0] ,locn[l]); 

Mprintf(msg,"Low pass: x - %03d y - %03d\n".blkDC[0],blkDC[l]); 

for(Y=0;Y<2;Y + +){ 

for(X-0;X<2;X++) 

DC[0]&&Y==offDCm?•* , : ,, ); 

Mprintf(msg,"\n"); 

} 

for(oct=octs;oct>0;oct-) { 

int blk[2]- {(posn[0] > > oct)&-2,(posn[l] > > oct)&-2}, 

O ff[2] = {(posn[0]> > oct)&l.(posn[l] > > oct)&l}; 

Mprintf(msg,"Oct : %d\n",oct); 

for(Y-0;Y<2;Y++) { 

for<sub=l;sub<4;sub++) { 

for(X=0;X<2;X++){ 

&&Y==offll]? , *': ,, >; 

} 

if (sub<3) Mprintf(msg." "); 



} 

if (oct!=0 1 1 Y= =0) Mprinrf(msg,"\n"); 



} 

} 

} 
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Mflush(msg); 



Function Name: CrossHair. 

Description: Draws doss-hair on pixmap 

Arguments: dpy - Xserver display 

pixmap - pixmap to draw on 

gc - GC to draw with 

x off, y_off - offset into pixmap 

width, height - size of box containing cross-hair 

x, y - coordinates within box 

zoom - scaling factor 

Returns: alters pixmap. 



void CrossHair(dpy,pixmap,gc,x_off,y_off,width,height,x,y,zoom) 

Display *dpy; 
Pixmap pixmap; 
GC gc; 

int x_off, y_off. width, height, x, y, zoom; 
{ 

int xtra = Shift(l,zoom); 



x_off = Shift(x_off .zoom); 
y_off= Shift(y_off .zoom); 
width = Shift(width.zoom); 
height = Shiftfhe ight.zoom); 
x»Shift(x,zoom); 
y=Shift(y.zoom); 
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XFillRecungle(dpy.pixmap,gc,x + x.off+xtra/2,y_off.l.y):/* Nonh hair V 
XFUlRccunglc(dpy,pixmap.gc,x_off,y+y_off+xira/2.x,l);/* Wesi hair */ 
XFillRcciaDglc(dpy ,pixmap,gc,x + x_off + xtra/2 ,y + y_off + xtra. 1 ,height-y-xira) ; /' 

South hair */ 

XFillRectangle(dpy,pixrrap^ 

East hair */ 
} 

/* Function Name: UpdatePoint 

Description: Draws cross-hair on image at frame- > location 
Arguments: dpy - X server display 

frame - Frame supplying drawing parameters 
pixmap - X pixmap to draw on 
Returns: alters pixmap. 



void UpdatcPoint(dpy, frame .pixmap) 

Display *dpy; 
Frame frame; 
Pixmap pixmap; 



unsigned long gemask; 
XGCVahies gcvals; 
GC gc; 

Video vid= frame- > video; 

int posn[2]«{lraine->pomt->locatioD[Cq.fraine->poto^ 
channel=3 = = frame- > channcl?0: frame- > channel; 



gcvals .function = GXequiv; 
gemask « GCFunction; 
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gcvals. foreground = 127; 

gcmask = gcmask | ' GCForegTound; 

gc = XCreaicGC(dpy,pixmap,gcmask.&gcvals); 

if (vid-> type = =YUV && channel! =0) { 

posn[0] =posn(0] > > vid- > UVsample[0] ; 
posn[l] =posn[l] > > vid- > UVsamplefl]; 

} 

if (vid- > trans. type! =TRANS_Wave) { 

CrossHair(dpy,pixinap,gc,0,0,Si2e(vid,chaimel,0).Si2e(vid,cha M ^ 

me- > zoom); 
}else{ 

int octs = vid- > trans . wavelet, spacefvid- > type = ■ YUV &&. 
channel! =0?1:0], oct, 

size[2] = {Si2e(vid,channel,0),Size(vid,channel, 1)}; 

CrossHairCdpy.pixmap.gc.O.O.^ 

for(oct=l;oct< -octs;oct++) { 

CrossHairtfpy.pixmap.g^sizelOlAs^^ 
CrossHair(dpy, P ix m ap,gc,0. 5 i2ell],ske[0],si«[l],posnlO],po^ 

CrossHair(dpy,pi^^^ 

); 

} 

} 

XFreeGC(dpy,gc); 

} 
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source/Video2.c 



Video callback routines for Listing, Loading 



^include 

# include 

# include 
^include 
^include 



" . ./include/xwave.h" 

" . ./include/ImageHeader.h" 

n ../include/DTheader.h" 

"Vidco.h" 
<sys/time.h> 



extern void EraseFrameO; 
extern void CvtlndexO; 

void SortListOisl.no) 

String listQ; 
int no; 



int i, j. k; 

if (no>l) for(i=l;i<no;i++) for(j=0;j<i;j++) { 

wWlistlilM-listWM && list[i]M!='\0' ustU]M! = -\0')k++; 
if (Hst[i]Ik]<listrj]Ik]){ 

String spare =list[i]; 



list[i]=Hst[j]; 
list[j]= spare; 

} 
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Siring *ReadDirectory(dir_path. extension) 
String dir_path, extension; 



D1R •dirp. *opendir(); 
struct dirent *dp, *readdir(); 
static Siring *fileList=NULL, file; 
int count=0, i; 
char path[STRLEN]; 

Dprintf("ReadDirectory for %s extension\n", extension); 

if (HleListl-NULL) { 

for(i=0;NULL! = filcList[i];i+ +) frce(fUeList[i]); 

fTee(fileList); 

} 

fileLisi= (String •)MALLOC(si7Xof(String *)*300); 
sprintf (path, "% s %s\0" .global- > home ,dir_path); 
dirp « opendir(path); 

for (dp=readdir(dirp);dp!=NULL && count < 299 ;dp=readdir(dirp)) { 
int length= strlen(dp- > d_name) ; 

if (length > =soien(extension)) 

if (!strcmp(dp- > d_name+length-strlen(extension), extension)) { 
Dprintf("Found %s in dir\n",dp->d_name); 
nieListlcount]=(char *)MALLOC(length+l); 
strncpy(nieList[count] ,dp- > d_name,length-strlen(extension)); 

count + = 1 ; 

} 
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} 

fileLisiIcoumJ^NULL; 
SonList(filcList,count); 
closcdir(diip); 
rerum(fileList); 

} 

int Shift(value, shift) 
int value, shift; 

{ 

if (shifts -0) return value; 

else if (shift < 0) rcrum( value > > -shift); 

else return(value < < shift); 

j 

int Size(video,channel,dunension) 
Video video; 

int channel, dimension; 
{ 

if (video- > type = = YUV &Jc dimension! =2 &£ channel! = 0 && channel! *= 3) 
return(video- > size [dimension] > > video- > UVsample [dimension]); 
else return(video- > size[dimension]); 

} 

int Address2(video f channel,x,y) 

Video video; 

int channel, x f y; 
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{ 

if (video- > type ==YUV &.&. channel! =0 &&. channel! =3) 
return(x + Size(video,channel.O)*y); 

else retum(x + video->si2e[0J*yJ; 

} 

int Address(video, channel, x,y) 

Video video; 

int channel, x, y; 

{ 

if (video- > type= = YUV && channel! =0 &.& channel! =3) 
return((x> > video- >UVsample[0])+Size(video,cnannel,0)*(y > > video- >UVsample[l]) 

); 

else returo(x+video->size[0]*y); 

} 

String *VideoListO 
{ 

Dprintf("VideoList\n"); 
return(ReadDirectory(VID_DrR, VTD_EXD) ; 

} 

String *KIicsListO 
{ 

DprintfCKlicsLisiXn'); 

return (ReadI)irectory(KlJCS_DIR,K]JCS_EXT)); 

} 
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String *K]icsLisiSA() 
{ 

Dpnntf( M KJicsLi5lSA\n"); 

rerurnfReadDirectoirCKlJCSJA^DIR^CS^SA^EXT)); 

} 

Siring *VideoCurrentList() 
{ 

static String videoList[300]; 
Video video = global- >. videos; 
int count =0; 

Dprintf( " VidcoCurTcntList\n"); 
while (video! - NULL) { 

if (count -=300) DprintffVideoCimrntList: static size exceededXn"); 

videoListfcount] = video- > name; 
video « video- > next; 
count* = 1; 

} 

videoList[count] ■ NULL; 
SortList(videoList t count); 
rerurn(videoList); 

> 

String "VideoYUVListO 
{ 

static String videoList[300]; 
Video video = global- > videos; 
int count =0; 
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Dprimf( " VideoCunentList\n" ) ; 
while (video! = NULL) { 

if (count==300) Dprintf("VideoYUVList: static size exceeded\n"); 

if (video- > type = =YUV) videoList|count+ +] = video- > name: 

video = video- > next; 

} 

videoListfcount] = NULL; 
S ortLisKv ideoList , count) ; 
rerum(videoList); 



String *VideoDropLislO 
{ 

sialic String videoList[300]; 
Video video = global- > videos; 
int count =0; 
Boolean VideoHasFrame(); 

Dprintf ( * VideoDropListVn H ) ; 
while (video! -NULL) { 

if (False - =VideoHasFrame( video, global- > frames)) { 

videoList[count] «= video- > name; 

count + = 1; 

}; 

video = video- > next; 

} 

videoLisi[count] = NULL; 
SortList(videoList,count); 
retum(videoList); 
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Boolean VideoHasFrame(video Jrame) 

Video video; 
Frame frame; 

{ 

if (frame == NULL) retum(False); 

else if (frame- > video = = video) rerurn(True); 

else rerum(VjdeoHasFrame(video,frame- > next)); 

} 

void VideoLoad(w,closure,call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

Video vid=(Video)MALLOC(si2eof(VideoRec)); 
XawListRerurnStruct *name = (XawListReturnStruct *)call_dau; 
int frame, channel; 

DprintffVideoLoad % s\n ".name- > string); 
strcpy(vid- > name, name- > string); 
strcpy(vid- > files.name- > string); 
vid- > next «=global- > videos; 
global- > videos = vid; 
vid- > rate =30; 

Parse<VIDJDIR.name- > string, VID_EXT); 

for (channel =0;channel < (vid- > typc= =MONO?i:3);channel+ +) 

vid- > data[channel] = (short **)MALLOC(sizeof(short *)*vid- > size[2]); 
if (!vid-> disk) for(frame=0;frame<vid-> size[2];frame + +) 
GetFrame(vid.frame); 
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DpriniffVideoLoad tenninated\n"); 

if (global- > batch- = NULL) IniiFrame(w.closure,call_data); 

} 

void VideoSave(w,closure,caJl_daia) 

Widget w; 

caddr_t closure, call_data; 

{ 

Video video; 

XawListReturnStruct *name=(Xa W ListReturnSmict *)call_data; 
int frame; 

video = FindV»deo(name- > string .global- > videos); 

if (video- > files[0] « - '\0') strcpy(video- > files.name- > string); 

SaveHeader( video); 

for (fTame=0;fTame<video->si2el2];framc++) { 
Boolean disk = video- > disk; 

GetFrame(video , frame) ; 
video- > disk = True; 
SaveFrame(video,fTame); 

video- > disk =disk; 
FrceFrame(video,fiame); 

} 

DprintffVideoSave terminatedXn"); 

} 

void VideoDTSave<w,closure,calljlata) 



Widget w; 
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caddrj closure, call_data; 

{ 

Video video; 
FILE 'fp, *fopen(); 

XawListRerurnStruct *name = (XawListRerurnStruct *)call_daia; 
char file_name[STRLEN], whole_frame[512][512]; 
int frame, i, x, y, offset^]; 
DTbeader 

header={-DT-IMAGE^l,4J.2/^"^l ) {0,0 ) 4,0},l,l,0,l,{4,3},8,l.{0,2},{0,2}.{0,2},{0 
,2}, "Vxwave generated image",""}; 

Dprmtf(" VidcoDTSave %s\n" .name- > siring); 
video = Find Vidco(name- > string.global- > videos); 

sprinrf(file_name," %s%s/%s/%s%s\0",global- > home , IMAGE_DIR, video- > path,video- 

> files,". img"); 

offset[0]=(512-vidco- > sizel0])/2; 
offset[l]=(512-vidco- > size[l])/2; 
offsei[0] =offset[0] < 0?0:offset[0]; 
offset[l]=offsetll] < 0?0:offset[l]; 
fp=fopen(file_name,"w"); 
fwrite(&header,l,sizeof(DThcader),fp); 
GeiFrame(video.O); 

for(y=0;y<512;y++) for(x=0;x<512;x++) { 
int X, Y, oct; 

if (y < offsetjl] 1 1 x < offsctfO] 1 1 y-offsetfl] > = video- > size[l] j \ 
x-offset[0]> = video- >size[0]) whole^framerjlW^O; 

else { 

if (video- > trans .'type = =TRANS_Wave) { 
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CvtIndex(x-offset[0].y-offset[l], video- > shefO], video- > sizefl], video- > trans. wavelet. spa 
ce[0],&X.&Y.&oct); 

whole franie[y][x) = 128 + Round(video- > dau[0][0](Y*video- > size[0] + X]*(oci = = video 
-> trans, wavelet. space(0]?l :4), video- > precision); 
}elsc{ 

X = x-offset[0); Y=y-offset[l]; 

whole_frame[y)lx] = 128+Round(video- > data[0](0](Y* video- > size[0] +XJ, video- > preci 
sion); 

} 

} 

} 

FreeFnune(video,0); 

fwriie( whole_frame f 1 ,5 1 2 *5 1 2 , fp) ; 

fclosc(fjp); 

} 

void VidcoXimSavc(w,closurc,cairdata) 

Widgei w; 

caddrj closure, call_data; 

{ 

Video video; 

FILE *fp, *fbpen(); 

XawListRetumStruct *name-(XawLisiReturnStruct *)call_data; 
char file_name[STRLEN], *whole_frame; 
int frame, channel, i, x f y; 
ImageHeader header; 

DprintfCVideoXknSave %s\n",narae-> siring); 
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video = FindVideo( name- > string, global- > videos); 

whole_frame = (char •)MALLOC(video- > size[0]*video- > sizefl]); 

if (video- > fi]es[0] = = '\0') strcpy(video- > files.name- > string); 

sprintf(file_name. " 7cS%s/%s/%s%s\0",global- > home, ]MAGE_DIR, video- > path.video- 

> files, ".xim"); 

fp=fopen(file_name,"w"); 

sprinrf (header. file_version, " % 8d " ,IMAGE_VERSJON) ; 
sprinrf(header.beader_si2e,"%8d".1024); 
sprintf(header. image_width, " %8d" .video- > size[0]); 
sprintf(header.image_beight," %8d",video- > size[l]); 
sprintf(header.nuiD_colors, " %8d" ,256); 

sprintf (header.num_channels, " %8d" .video- > type == MON071 :3); 
sprinrf(header.num_picmres, " %8d",video- > size[2]); 
sprintf (header. alpha_channcl, " %4d",0); 
sprinrf(header.runlength, " %4d",0); 
sprintf (header.author, " %48s" , "xwave"); 
sprinr/Oieader.daie, " %32s" , "Now"); 
sprintf(header.program, " % 16s\"xwavc"); 
for(i-=0;i<256;i++) { 

header.c_map[i][0] = (unsigned char)i; 

header.c_map[i][l] = (unsigned char)i; 

header.c_map{i][2]= (unsigned char)i; 

} 

fwrite(&header,l,si2eof(lmageHeader),rp); 

for (frame = video- > siart;frame < video- > start + video- > size [2J; frame + +) { 
GeiFrame(video,fraine-video- > start); 

for(channel=0;channcl< (video- > rypc= =MONO?l:3);channcl++) { 
for(x=0;x< video- >sizelO];x++) 

f 0r (y = 0;y < video- > sue [ 1 ] ;y ++ ) 

whole_frame[x+video- > size[0]*y] = itc(video- > dau[channel][frame-video-> start][Addre 
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ss( video, channel. x, y)] > > video- > precision); 

fwrite(whole_frame, sizeof(char), video- > size(0]*video- >size[l],fp); 

} 

FreeFrame(video, frame-video- > sian); 

} 

fclose(fp); 

XtFree(whole_frame); 

} 

void VideoMacSave(w, closure, call_dau) 

Widget w; 
caddr_t closure, call_data; 

{ 

Video video; 
FILE *fp, *fopenO; 

XawListReturnSmict *namc = (XawListRetuniS tract *)call_data; 
char file_name[STRLEN], *wbole_frame; 
int frame, channel, i, x, y; 

DprintfCVideoMacSave %s\n",name-> string); 
video = Find Video(name- > string .global- > videos); 
if (video- > files[0] = = '\0') strcpy (video- > files, name- > string); 

sprintf(filejoame/ %$%$/ %s/%s %s\0" .global- > home, IMAGE_DIR, video- > path, video- 
> files,". mac"); 

fp = fopen(file jiame, "w"); 

whole_frame = (char »)MALLOC(video- > si2e[l] ♦video- > si2ef0]*3); 
for(frame=0;frame < video- > size[2];frame++) { 
int size=video->si2c[0]*video->size[l]; 
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GetFrame( video. frame); 

for(channel = 0;channel< (video- > lype = = MONO?l :3):channel + +) 

for(x =0;x< video- > size[0];x + +) 

for(y =0';y < video- > size( 1] ;y + + ) 

whole_frame[(x + video- > size[0]*y)*3 + channel] = itc(video- > dau[channel]{frame][ Addre 
ss(video.channel,x,y)] >> video- > precision); 

fwriie(whole_frame, 1 ,3»size,fp); 

FrecFrame(video,frame); 

} 

fclose(fp); 

XtFree(wbole_frame); 

} 

void VidcoHexSave(w,c]osure,call_data) 

Widgei w; 

caddr t closure, call_data; 



Video video; 

FILE *rp, *fopenO; 

XawLisiReturnSmict *naroc = (XawListReruniStruct *)call_daQ; 
char fUe_name[STRLEN]; 
int frame, channel, i; 

Dprintf("VideoHexSave 9ts\n" .name- > siring); 

video = FindVideo(name- > string .global- > videos); 

if (video- > fues[0) = = '\0') strcpy(video- > files.name- > string); 

sprintftflej^ 
> files. \h"); 
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fp m fop€n(file_name . " W); 

for(ftame-0;ftame < (video- > size[2] > 2?2:video- > si2e[2]);fnui 1 e + + ) { 
int size = video- > sized] 'video- >size[0]; 

GeiFrame(video, frame); 

fpriDtf(fp,"char 

- r„ r i.„/„, m » -> cmnBVn = = 'd'?"src , ':"dst". frame. size); 
%s%df %d] = {\n M ,name-> stnng[strlen(name- > smngMJ 

for(i=0;i<size;i + +) 

fprimf<fp/<h%<^^ 
19?'\n':' '); 

fprmrf(fp,"\n};\rT); 
FreeFran>e(video, frame); 

} 

fclose(fp); 

} 

tfdefine AB_WIDTH 1440 
^define AB_HEIGHT 486 

void VideoAbekusSave(w.dosure.calijtatt) 

Widget w; 

caddr t closure, caJl_data; 



AbekusCtrl crxl=(AbekusCrxl)closure; 

FILE *fp, »fopenO: 
char file_name(STRLEN], *data«(cbar 
*)MALL0C(AB_W1DTH*AB_HEIGHT), zero=iic(0); 
int frame, channel, i, x, y, length=0; 
Video vids[4]; 
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Dprintf( " VideoAbekusSaveVn"); 
for(i=0;i<4;i++) 

if (ctrl- > names[i] ! = NULL) { 

vids[i] =FindVideo(ctrl- > names[i],global- > videos); 
length = length > vidsji)- > size[2]?length:vids[i]- > size[2); 
} else vids[i]= NULL; 
for(frame=0;frame < length;ftame+ +) { 

sprintf(file_name, " %d.yw\0" .frame + 1); 
fp=fopen(file_name,"w''); 
for(i=0;i<4;i++) GetFrame(vids[i] .frame); 
for(y=0;y< AB_HEIGHT;y+ +) 

for(x=0;x<AB__WIDTH;x++) { 
int 

i = (x < AB_WTDTH/2?0: 1) +(y < AB_HHGHT/2?0:2), 

Y=y< AB_HH G HT/2 ?y : y- AB_HE1 GHT/2 , 
X=(x < AB_WIDTH/2?x:x-AB_WTDTH/2)/2, 
channel=((x&l)= - 1)?0:((X&1)= =0)?1:2; 

if (vids[i]-> type == MONO && channcl!=0 1 1 
X>=vids[i]->size[0] II Y>=vids[i]->size[l])data[x+y*AB_WIDTH]=2ero; 

else 

datafx +y*AB_W!DTH] =itc(vids[i]- > <3ata[criaiinel][frame]IAddre5S(vids[i],charmeI t X,Y)] 
> > vids[i]- > precision); 

} 

for(i=0;i<4;i++){ 

FreeFrame(vids[i] .frame); 
EraseFrame(vids[i] .frame); 

} 

fwrite(data, 1 ,AB_WE)TH*AB < _HEIGHT,fp); 
fclose(fp); 

} 

} 
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void VideoDTop(w,closure,call_data) 

Widget w; 

caddr t closure, call_data; 

{ 

Video *videos = &global-> videos, video; 
XawLisiReturnStnJct *narae = (XawListReturnStnjct *)call_data; 
int channel, frame; 

DprintffVideoDrop %s\n\name-> string); 
video = Find Video(name- > string, global- > videos); 

while (*videos! = video && * videos != NULL) videos =&((* videos)- > next); 
if (* videos != NULL) { 

*videos=(*videos)- > next; 

for(channel = 0;channel < (video- > type « = MONO?l :3);channel + +) 
if (video- > data [channel] ! = NULL) { 

for(frame = 0; frame < video- > size[2] ; frame + + ) 
if (video- > data [channel] [frame] ! = NULL) 

XtFree(video- > data[channel] [frame]); 

XtFree(video- > data [channel]); 

} 

XtFree(video); 

} 

} 

/* Obsolete 

void VideoDiff(w,closure,call_data) 

Widget w; 

caddr J closure, caJl_data; 

•{ 
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XawListRcturaStruct *name = (XawLisiRetumStruct *)calljiata; 

Video src = Find Video(name- > string ,global-> videos), dst=CopyHeader(src); 

int frame, channel, i; 

printf("VideoDiff %s\n n t name-> string); 
sprintf(dst- > name, " %s.dif\0" l src- > name); 
for(frame=0;frame<src->si2e[2];frame++) { 

GetFrame(src, frame); 

Ne wFrame (dst , frame) ; 

for(channel==0;channel< (video- > type = =MONO?l:3);channel+ +) 
for(i=0;i < src-> size[l]*src- > size[0];i+ +) 

dst-> data[channe]][frame][i] «=src- > data [channel] [frame] [i]>(frame« *=0?0:src- > datafch 
annel][frame-l][i]); 

SaveFrame(dst, frame); 

FreeFraroe(dst,frame); 

if (frame >0) FreeFrame(src,frame-l); 

} 

FreeFrame(dst,src-> size[2]-l); 
dst- > next = global- > videos; 
global- > videos = dst; 

> 

*/ 

void VideoClean(w, closure, call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

Video *videos = &global- > videos, video; 
int channel, frame; 
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Dprintf( "VideoClean\n"); 
while(*vidcos! = NULL) { 
video = *videos; 

if (False = = VideoHasFrame(video,global- > frames)) { 
DprintfC Erasing video: %s\n\vidco-> name); 

for(channel =0;channel < (video- > type = = MON071 : 3); channel + +) . 

if (video- >data[channel]! = NULL) { 

for(frame =0;frame < video- > size[2];frame+ +) 
if (video- > data[channel] [frame]! = NULL) 

XtFree(video- > data[channel][frame]); 

XtFree(video- > data [channel]); 

} 

•videos = video- > next; 
XtFree(video); 
} else videos =&(*videos)-> next; 

} 

} 

typedcf struct { 

Frame frame; 

Xtlntervalld id; 

unsigned long interval; 

long msec, shown, average; 

Pixmap *movie; 

int fho, old_fno; 
} MovieArgRec, *MovieArg; 

void Projector(client_data,id) 

XtPointer cl ient_data ; 
Xtlntervalld *id; 
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MovieArg movieArg = (MovieArg)client_daia; 

Display »dpy = XtDisplay(global- > toplevel); 

struct timcval tp; 

struct timezone tzp; 

long new_rasec; 

int scrn=XDefaultScreen(dpy); 



movieAig- > id = XtAppAddTimeOut(globaJ- > app_con,movieArg- > imerval,Projector,mo 

vieArg); 

gettimeofday(&tp,&tzp); 
ncw_mscc=tp.rv_sec*1000+tp.tv_uscc/1000; 

if (movieArg- > msec! =0) { 

movicArg- > average = (movieAig- > average*movieArg- > shown +new_msec-movie Arg- 

> msec)/(movieArg- > shown+ 1); 

movieArg- >sbown++; 

} 

movieArg- > msec = ne wjmscc ; 

XCopyArea(dpy .movieArg- > movie[movieArg- > fno],XtWindow(movieArg- > frame- > i 
mage_widget),DefaultGC(dpy,scrn),0,0,movieArg- > frame- > video- > si2e[0],movieArg- 

> frame- > video- > size[l], 0,0); 

movieArg- > fho = movieArg- > roo= = movieArg- > frame- > video- > size[2]-l?0:movieAr 

g->fno+l; 

} 

void S!opMovie(w,closure,calljiata) 
Widget w; 
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caddr_t closure, call_data; 

{ 

MovieArg movieArg=(MovieArg)closure; 
Display *dpy = XtDisplay (global- > toplevel); 

int i; 

Arg args[l]; 

XtRemoveTimeOut(movicArg- > id); 

Dprintf(" Movie showed %d frames at an average of %f 
fps\n" .movieArg- > shown, 1000.0/(float)movieArg- > average); 

for(i =0;i < movieArg- > frame- > video- > size[2];i+ +) 
XFreePixmap(dpy .movieArg- >movie[i]); 

XlFree(movieArg- > movie); 

XtSetArg(args[0].XlNbitmap,UpdateImage(movieArg- > frame)); 
XtSetVaJues(movieArg- > frame- > image_widget,args,ONE); 
XSynchroni2e(dpy,False); 

} 

^define MOVIEJCONS 1 
void Movie(w,closurc,call_data) 

Widget w; 

caddrj closure, caD_data; 

{ 

Video video =((Frame)closure)-> video; 

MovieArg movieArg = (MovieArg)MALLOC(sizeof(MovieArgRec)); 
Widget shell = ShellWidget("movte\XtParent(w) I SW_over t NUIJ-,NULL), 
form =FormatWidget("movie_fonn", shell), 
widgetsIMOVIE JCONS] ; 
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Display »dpy = XtDisplay(global- > toplevel); 

ForroJtem iiems[]={ 

{ n movie_siop"."stop",0,O.FW_icon,NULL}, 

}; 

XtCallbackRec callbacks!] ={ 

{ S topMovic . (caddrj)movie Arg} , 
{Free,(caddr_t)movieArg}, 
{Destroy , (caddr_t)shcll} , 
{NULL,NULL}, 

}; 

int i; 

XGCValues values; 
GC gc; 

Dprintf("Movie\n"); 

FillForm(fonn,MOVIE_lCONS,iicms,widgcts,callbacks); 
XtPopup(shell,XtGrabExclusive); 

values. fortground=255; 
values.background =0; 

g c = XtGctGC(XiPaicm(w),GCForcgTOund | GCBackground.&values); 
movie Arg- > frame = (Frame)closure; 

movieArg- > movie = (Pbtmap ')MALLOC(video- > size[2] *sizeof(Pixmap)); 
movieArg- > old Jho «= movieArg- > frame- > frame; 
for(i=0;i< video- > size[2];i++) { 
char fno[STRLEN]; 

sprinrf(fno, " %03d\0",i+ video- > start); 
movieArg- > frame- > frame =i; 
GetFrame(video.i); 

movieArg- > movie[i] = UpdateImage(movieArg- > frame); 
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XDrawlmagcSmng(dpy,movieArg- > movie[i].gc.video- > size[0]-50. 10,fno,3); 

XCopyArca(dpy,movieArg- > movie(i],XtWindow( m ovieArg- > frame- > imag^w^get).] 
cfaultGC(dpy,0),0,0,video->si2e[0],video->size[l],0,0); 

movicArg- > frame- > frame = movieArg- >old_fno; 

FreeFrame(video,i); 

} 

XiDestroyGC(gc); 

movieArg- > fno = 0; 

movie Arg- > msec =0; 

movieArg- > shown »0; 

movicArg- > average =0; 

movieArg- > interval* 1000/video- > rate; 

movieArg- > id = XlAppAddTimeOut(globaJ- > app_con.movie Arg- > imerval,Projector,m 

vie Arg); 

XSynchroni2e(dpy .True); 

} 

void Compare(w,closure.cail_data) 

Widget w; 

caddrj closure, calljiata; 

{ 

XawListRetumStruct »name = (XawListReturriStruct *)call_data; 

Video src = (Video)closure, dst = FindVideo(name- > string, global- > videos); 

int channcls=src->typc==MONO | { dst- > type = = MONO? 1:3, channel. 

values =0, x, y, 

frames = src- > size[2] > dst- > size[2]?dst- > si2e[2]:src- > size[2], 

frame; 
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double mse; 

Message msg = NewMessage(NULL,400); 
XtCallbackRec callbacks!] = { 

{CloseMessage,(caddr_t)msg}, {NULL.NULL}, 

}; 

msg- > rows = frames > 5? 10:2* frames; msg- > cols =40; 
if (global- > batch = = NULL) 
MessageWtodow(FixidWidget("firm_co^^ 

for(frame=0;frame<frames;frame++) { 

Boolean srcp= src- > precision > dst- > precision; 
int err_sqr=0, 

precision=srcp?src- > precision-dst- > precision:dst- > precision-src- > precision; 

MprintfOnsg, "Compare: %s%03d and 
%s%03d\n\src- > name,src-> stm+frame,dst-> name, dst- > siart+frame); 
GctFramc(src.frame); 
GetFrame(dst, frame); 

for(cbannel=0;cbarjnel<cbannels;channcl++) { 

values + = Size(src- > size[l) > dst- > size(l]?dst:sre,chaimel,irSize(src- > size[0] > dst- > s 
ize[0]?dst:src,channel,0); 

forty =0;y < Size(src- > sizc[l] > dst- > size[l]?dst:src,channel, l);y + +) 

for(x=0;x < Si2e(src- > size[0] > dst- > size[0]?&t:src,channel,0);x+ +) { 

int 

OT-(src->daulchainiel][to 

data[channel][frame] [x + Size(dst,channel,0)*y] < < <srcp?prccision:0)); 

err_sqr+=err*en; 

} 
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} 

F ret Fram e ( s rc . frame ) ; 
FrecFrame(dst,frame); 
mse = (double )err_sqr/(double)( values); 
Mprinrf(rasg, "Error %d MSE %f PSNR 
%f\n\err S qr.mse,l0*logl0(pow((pow(2.0.(double)(8+(srcp?src->precision:dst-> precis 

ion;))-l),2.0)/mse)); 

Mflusb(msg); 

} 

} 

void BatchComparc(w,closurc.call_data) 

Widget w; 

caddr_t closure, call_data; 

{ 

String namc^StriDg^losure; 

closure = (caddrj)FindVideo(name, global- > videos); 
Compare(w,closure,call_data); 

} 
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source/xwave.c 



^include " . ./include/xwave.h" 

^include <Xll/Xresource.h> 

^include <X11/Intrinsic.h> 

include <X11/Quarks.h> 

extern Palette ReOrderPalettcsO; 

extern void NameBurton(); 

extern void ImageNotifyO; 

extern void ParseO; 



^define 


IconPath 


"bitmaps" 


^define 


IconFilc 


"xwave. icons 


Mefine 


ComprcssPath 


m m 


#define 


CompressExt 


".compress" 


^define 


PalenePath 


w n 


^define 


PaletteExt 


".pal" 


Global 


global; 





String ChannelNaroel3][4]={ 

{ "GreyScale" ,NULL,NULL,NULL} , 
{"Red ","Green","Blue •/Color"}, 

{•Y-Uimunance'.'U-Chroine W-Chrome "."Color "}, 

}; 



#defme XtNdebug "debug" 
^define XtNbatch "batch" 
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static XtResourcc resourccsfj = { 

{XiNdcbug, XtCBoolean, XiRBoolean. si2eof(Boo!ean), 
XtOffset(Global.debug), XtRString. "false"}. 
{XiNbatch, XtCFile, XtRString, sizeoffString), 
XtOffset(Global.baich), XtRString, NULL}, 

}; 

static XrmOptionDescRec options[] = { 

{ "-debug " , " *debug" .XrmoptionNoArg, " true" } , 
{ "batch" , ""batch" .XrmoptionSepArg.NULL} , 

}; 

static Boolean CvtStringToPixcl20; 
#if defined(__STDC_J 

extcrnalref XtConvenArgRec const colorConvcrtArgs[2]; 
#else 

extcrnalref XtConvenArgRec colorConvenArgs[2]; 
#endif 

static String fallback_rcsourcesQ = { 

"•copy video*Toggle*translations: ^override \\n <BtnlDown> , <BtnlUp> : 

set() notify 0". 

"*copy_vidco*copy*state: true", 

NULL, 

}; 

XtActionsRcc actionTableQ » { 

{ "NameButton" .NameBunon} , 

}; 

ma in(argc , arg v , cn vp) 
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int argc; 

char *argv[], *envp[]; 

{ 

void InitPixroaps(), IniiActions(), IniiMain(), IniiEnv(), IniiDiiherO, Dispaich(); 
GlobalRec globalrec; 

global =&globalrcc; 
global- > videos = NULL; 
global- > frames = NULL; 
global- > points = NULL; 
InitEnv(envp); 

global- > toplevel = XtAppInitialixe(&(global- > app_con), "xwave" ,options,XtNumber(optio 
ns),&argc,aigv,faUback_resources,NULL,ZERO); 

XtGetApplicationResourcesfglobal- > toplevel,global,resources,XtNumber(resouTces),NUL 

L.ZERO); 

if (global- > batch! =. NULL) { 

Paise(BATCH_DIR,global- > batch,BATCH_EXT); 

if (global- > batchjist! = NULL) Dispaich(globaJ- > batchjist); 

} 

if (global- > batch == NULL) { 

XtAppAddActions(global- > app_con,actionTable,XtNumber(actionTable)); 

XtSetTypeConvener<XtRString,XtItt , ixe^ 
(colorConvcnArgs) t XtCacbeByDisplay,NULL); 

if (global- > debug) DpriDtf("Xwave Debugging Output\n"); 

InitVisualO; 
InitDitherO; 

ImtPixmaps(IconPath,IconFile); 
Parse(PalettfiPath, "xwave " .PalerteExt); 
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global- > palenes ■ ReOrderPalenes(global- > palettes, global- > palettes); 

IniiActions(global- > app_con); 

InitMainO; 

XLRealizeWidgei(global--> toplevel); 
XtAppMainLoop(global- > app_con); 

} 

} 

void IniiEnv(envp) 
char *envpQ; 
{ 

String home = NULL, xwave=NULL; 

Dprirjrf("IniuaJi2ing enviroment\n"); 
while(*envp! = NULL) { 

if(!scrncmp(»eDvp,"HOME=",5))home = (*cnvp)+5; 

if(!strncmp(*envp, "XWAVE = " ,6)) xwave = (*envp)+6; 

envp+ + ; 

} 

if (xwave! « NULL) sprintf(global- > home, " %s/ " .xwave); 
else sprintf(global- > homc,"%s/xwave/",home); 

} 

#defroe HEIGHT 14 
void lnitPixmaps(path,fi]e) 
char *file, *path; 
{ 
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F1LE *fp. *fopen(); 
Icon icons; 
char pad[ 100]; 

Display "dpy = XiDisplay(global- > loplevel); 

int i, j, sink, scrn=XDefaultScreen(dpy), depih=DisplayPlanes(dpy.scrn), 

bpl = (global- > levels'depth + 7)/8 ; 
char data[HElGHT*bpl]; 
Xlmage 

'image =XCreateImage(dpy, global- > visinfo- > visual,depth,2Pixmap,0,data,global- > leve 
ls,HEIGHT,8,bpl); 

sprintf(pad,"%s%s/%s\0\global-> home.path.file); 
if (NULL == (fp=fopen(pad,V))) { 

Eprintf("Can't open file %s\n",pad); 

exitO; 

} 

fscanf(fp, " %d\n" ,&global- > no_icons); 

global- > icons « acon)MALLOC(( 1 + global- > no jcons) *sizeof(IconRec)); 
for(i=0;i< global- > no_icons;i+ +) { 

global- > icons[i].i^e=(Soing)MALLOC(l00); 

fscanf(fp, " %s\n",global- > iconsfi] .name); 

sprintf(pad," %s%s/%s\0",global- > homcpath.global- > icons[i].name); 
XRcadBitmapFile( 

XtDisplay(global- > toplevel), 

XDefaultRootWindow(dpy), 

pad, 

&global- > icons[i].width, 
&global-> icons [i]. height, 
&global- > icons[i].pixmap, 
&5ink, 
&sink 

); 
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} 

global-> icons [global-> no_ic ons]. name =(Siring)MALLOC( 100); 
strcpy(global- > icons[global- > nojcons] .name, "colors"); 
global- > icons(global- > nojcons]. width = global- > levels; 
global- > icons[global- > nojcons]. height = HEIGHT; 
for(i =0;i < global- > levcls;i+ +) 

for(j=0;j < HEIGHT;j+ +) XPutPixel(image,i,j,i); 

global- > icons[global- > nojcons] .pixmap= XCreatePixmap(dpy ,XDefaultRootWindow(dp 
y),global- > levels,HEIGHT,depth); 

XPutlroage(dpy .global- > icons[global- > no_ > icocs].pixmap,DefaultGC(dpy,scrn),image,0,0 
.O.O.global- > levcls.HEIGHT); 

global- > nojcons + + ; 

XtFree(image); 

fclose(rp); 

} 

^define done(type, value) \ 

{\ 

if (toVal- > addx ! = NULL) { \ 
if (toVal->size < sizeof(type)) { V 

toVal->size = sizeof(rype); \ 

return False; N 

}\ 

•(type*)(toVaI- > addr) = (value); \ 

} * 

else { \ 

static type static_val; \ 

sutic_val = (value); \ 

toVal->addr - (XtPointer)&static_val; \ 

} * 
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toVal->size = sizeoftrype); \ 
return True; ^ 

} 

^define dist(colora.colorb) I 

abs(colora.red-colorb.red)4abs(colora.gieen-colorb.green) + abs(colora.blue-colorb.bluc) 

static Boolean CvtStringToPixel2(dpy. aigs, num_args, fromVal, toVaJ, closurc_rct) 
Display* dpy; 
XnnValucPtr args; 
Cardinal *num_args; 



XnnValucPtr 


fromVal; 


XnnValuePtr 


toVal; 


XtPointcr *closure_ret; 


String 


str = (String)fromVal->addr t 


XColor 


screenColor; 


XColor 


exactColor; 


Screen 


♦screen; 


Coionnap 


coionnap; 


Status 


status; 


String 


params[l]; 


Cardinal 


nmnjarams—l; 



Dprintf("Convert string to pixel 2\n"); 
if (*num_args != 2) 

XtAppErrorMsg(XtDisplayToApplicationConiext(dpy), "wrongParameters". 

"cvtStringToPixd", 

"XtToolkitError". 
"String to pixel conversion needs screen and coionnap arguments', 
(String *)NULL, (Cardinal *)NULL); 



.-r* «r r*i irrr /oi n e nc\ 
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scieen = "((Screen ••) args[0].addr); 
colonnap = '((Colormap •) args[l].addr); 

if (!sircmp(sir,XtDefauliBackground)) { 

*closurc_ret = False; 
done(Pixcl,WhitcPixclOfScreen(screcn)); 

} 

if (!strcmp(str,XtDefauliForeground)) { 

*closure_ret = False; 
done(Pixel,BlackPixelOfScreen(screen)); 

} 

params(0] =str; 

if (0= = XPaneColor(DisplayOfScre€n(screen),colorraap,str,&screenColor)) { 

XtAppWamingMsg(XiDisplayToApplicauonConiext(dpy), "noColonnap", 

"cvtStringToPixel", 

"XtToolkitError", "Cannot parse color: \"%s\"", 
params,&nurn_params); 

return False; 
} else { 

if (0= = XAUocColor(DisplayOfScreen(screen).colormap,&screenColor)) { 
int i, delta, closest=0; 
XColor colors[global-> levels]; 

for(i=0;i<global-> levels;i+ +) colorsfi] .pixel =i; 

XQueryColon(DisplayOfScrcen(screcn),colormap,colors,global-> levels); 
delta =dist(screenColor,colors[0]); 
for(i=l;i<global->levels;i++) { 

int delta new=dist(screenColor,colors[i]); 



if (delta_new < delta) { 
delta =delta_new; 
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closest = i; 

} 

} 

DprinrfC Closest color to %s is pixel %d red %d green %d blue 
%d\n".str,colors(closest).pixel.colors(closest].red,colors[closest].green,colors[closest].blue 

); 

*closure_ret = (char*)True; 
done(Pixel, closest); 
} else { 

*closure_rct = (char*)True; 
done(Pixel, screenColor.pixel); 

} 

} 

} 

void DispatcbOist) 
Batch list; 



if (list- > next! = NULL) Dispatch(list- > next); 
(list- > proc)(NULL,list- > closure,list- > call_data); 
if (list- > closure! = NULL) XtFree(list- > closure); 
if (list- > cal l_data ! « NULL) XtFreeflist- > call_data); 
XtFree(list); 



void BatcbCtr](w,closure,caIl_data) 



Widget 
eaddr_t 



w; 

closure, call_data; 
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{ 

Dprintf("BatchCtrl\n"); 
global- > batch =(String)closure; 

} 

void UnixShell(w,closure.call_data) 

Widget w; 

caddrj closure, call_data; 

{ 

if ( . 1 = -Fork((char ••)closurc)) Eprinrf( "Unable to fork\n"); 

} 

void InitDitherO 
{ 

int i, j, k, 1, 

dm4l4]l4]*{ 

0, 8, 2, 10, 
12, 4, 14, 6, 
3. 11. 1, 9, 
15, 7, 13. 5 

}; 

for(i-0;i<4;i++) 

for(j=0;j<4y++) 

for(k=0;k<4;k++) 

for(l=0;l<4;l++) 

global->dither[4*k+i][4*l+j] = (dm4[i]y]<<4)+dm4[k][l]; 
} 
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source/Copy.h 



typedef struct { 
Video video; 

char name[STRLEN], src_narae[STRLEN]; 
int UVsample[2]; 
int mode; 
Widget radioGroup; 
} CopyCtrlRec, *CopyCtrl; 
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source/Gram.y 



%{ 



Grammar for files: .elo 



^include "../includc/xwavch" 
include "KJics.h" 
include Transform.b" 
^include "Copy.h" 
^include "Video.b" 
extern void VideoLoadO; 
extern void VideoSaveO; 
extern void VideoDropO; 
extern void ImportKlicsO; 
extern void VideoAbekusSaveO: 
extern void UnixSbcllO; 
extern void BatchCompCtrlO; 
extern void BatchTransCtrlO; 
extern void BatchCopyCtrlO; 
extern void BatcbCompareO; 
extern void BatcbCtrlO; 
extern CompCtrl InitCompCtrlO; 
extern CopyCtrl InitCopyCtrlO; 
extern TransCtrl InitTransCtrlO; 

static char *ptr, 
void NewBatchQ; 



%} 
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%union 

{ 



double fnum; 
int num; 
char "ptr; 
Boolean bool; 



%ioken SIZE TRANSFORM TRANSFORM_NONE TRANSFORM.WAVE PATH 
%token F1LE_PAL PALETTE RANGE LINE 

%tokcn FTLE~VID TYPE FORMAT.MONO FORMAT_RGB FORMAT.YUV 
RATE DISK GAMMA PATH FILES START END LEN DIM HEADER OFFSETS 
NEGATIVE PRECISION 

%token FTLE_BAT LOAD SAVE SAVE_ABEKUS COMPARE DROP 

COMPRESS V1DE0_NAME STATS_NAME BIN_NAME 

%token STILL.MODE VIDEO_MODE AUTO_Q QUANT_CONST 

THRESH CONST BASE_FACTOR D1AG_F ACTOR CHROME_FACTOR 

%token " DEC1S10NDEC_MAX DECJ1GABS DEC SIGSQR FEEDBACK 

FILTER FLT.NONE FLT_EXP CMP.CONST SPACE LEFT_BRACE R1GHTJBRACE 

DIRECTION 

%token FPS BITRATE BUFFER XWAVE SHELL IMPORT_KLICS 
%ioken COPY DIRECT_COPY DIFF LPF_WE LPF_ONLY RGBYUV 
%token <num> NUMBER 
%token <ptr> STRING 
%token <fnum> FNUMBER 
%token <bool> BOOLEAN 

%type <num> number videojype decision filter 

%type <ptr> string 

%rype <fnum> fnumber 

%type <bool> boolean 



r.inr-rmnT CUCPT fRIll F ?fft 
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%sian wait 



%% 
wait 

| pal_id pal_dcsc 

J video id video_desc 

I bat_id batjiesc bat_end; 

pal_id : FILE_PAL { 

Dprintf("Gram: palette file %s\n", global- > parsc_file); 

}; 

video_id : FILE_VID { 

DprintfCGram: video file % s\n" .global- > parse Jile); 
global- > videos- >start=l; 
global- > videos- > siae[2] = 1 ; 

}; 

bat_id : FILEBAT { 

Dprintf("Gram: batch file %s\n", global- > parse_file); 

}; 



pal_desc 



psddesc paJettc LEFT_BRACE mappings R1GHTBRACE; 



palette : PALETTE string { 

Palette pal = (Palette)MAIXOC(sizeof(PaleneRec)); 

DprintfCGram: palette %s\n",$2); 
strcpy(pal- > name,$2); 
pal- > mappings = NULL; 
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pal- > nsxi= global- > palencs; 
global- > palenes=pal; 
global- >no_pals + + ; 



mappings 



mappings mapping; 



mapping 



RANGE number number UNE number number { 
Map map=(Map)MALLOC(sizeof(MapRec)); 

DprintfCGram: Ramge %d to %d m = %d c=%d\n\S2,$3.$5,$6); 

map- > start =$2; 

map- > finish = $3 ; 

map- > m=$5; 

map->c=$6; 

map- > next - global- > palettes- > mappings; 
global- > palettes- > mappings ~ map; 



}; 



video desc : video_defs { 

if (global- > videos- > size[0] = =0 && 

global- > videos- > sizc[l] = =0) { 

global- > videos- > sizelO] - global- > videos- > cols; 
global- > videos- > size[l] = global- > videos- > rows; 

} 

video_defs : 

j video_defs video_def; 



video def : PATH string { 
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Dprimf("Video path %s\n",$2); 
strcpy (global- > videos- > path,$2); 

} 

j FILES siring { 

DprimfCFrames stored in %s\n",$2); 
S trcpy(globaJ- > videos- > files,$2); 

} 

j TYPE video_type { 

String rypesD = {"Mono",' , RGB"."YUV-}; 

DprinrfCVideo type: %s\n",types[$2]); 
global- > videos- > rype = (VideoFormat)$2; 

} 

| RATE number { 

Dprinrfr Video rate %d fps\n",$2); 
global- > videos- > rate = $2; 

} 

| DISK { 

Dprinrf("Frames on disk\n"); 
global- > videos- > disk = True; 

} 

j GAMMA { 

Dprintf("Gamma cont:ci£d\n*); 
global- > videos- > gamma = True; 

} 

| NEGATIVE { 

DprintffNegative videoVn"); 
global- > videos- > negative = True; 

} 

{ TRANSFORM videojransform 

! START number { 

Dprintf("Video start %03d\n".$2); 
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global- > videos- >sian = $2; 

} 

j END number { 

Dprintf( "Video end %03d\n",$2); 

global- > videos- > size[2] = $2-global- > videos- > sun + 1 ; 

} 

j LEN number { 

Dprintf( "Video frames %d\n\$2); 
global- > videos- > size [2] = $2; 

} 

j DIM number number { 

Dprintff Video dimensions %d %d\n",$2,$3); 
global- > videos- > cols =$2; 
global- > videos- > rows = $3 ; 

} 

| HEADER number { 

Dprintff Video header size %d\n",S2); 
global- > videos- > offset - $2; 

} 

| OFFSETS number number { 

Dprintf( "Video offsets %d %d\n n ,$2,$3); 
global- > videos- > x_offset - $2; 
global- > videos- > y_offset = $3 ; 

} 

| SIZE number number { 

DprintfC Video size %d %d\n",$2,$3); 
global- > videos- > sizelO] = $2; 
global- > videos- > size[ 1] = $3 ; 

} 

| PRECISION number { 

DprintfX "Video precision %d bits\n",8+$2); 
global- > videos- > precision « $2; 
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): 

videojype : FORMATMONO { $$ = (ini)MONO; } 
| FORMAT_RGB { $$ = (int)RGB; } 
! FORMAT_YUV number number { S$ = (ini)YUV; 

g)oba]->videos->UVsample[0] = S2; global- > videos- > UVsample[l] = $3; }; 

videojransform : TRANS FORM_N ONE { 

global- > videos- > trans.rype = TRANS_None; 

} 

| TRANSFORM_WAVE number number boolean { 
Dprinif("Video wavelet tranformed %d %d 

%s\n\$2,$3,$47"TrueVFalse"); 

global- > videos- > trans, type =TRANS_Wave; 
global- > videos- > trans. wavelet.space[0] =$2; 
global- > videos- > trans.wavelet.spacell] =$3; 
global- > videos- > trans, wavelet.dim - $4 ; 



bat end 



XWAVE { 

Dprintf("Gram: XWAVEXn"); 
NewBatcb(BatchCirl.(caddr_t)NULL,NUli); 



bat desc : bat cmds { 



bat cmds 



Dprintf("Gram: End of batch file\n"); 

}; 



J bat_cmds bat_cmd; 
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bai_cmd : simple_cmd 

j complex_cmd 



simple_cmd : LOAD string { 

XawLisiRcturnStruct *list_retum = (XawListRetumStruct 

* )MALLOC(sizeof(XawListReturnStruct)) ; 



DprintfCGram: LOAD %s\n",$2); 
1 ist_rerurn- > string = $2 ; 

NewBatch(VidcoLoad,NULL,(caddrj)list_renjni); 

} 

| SAVE string { 

XawLisiRcturnStruct •list_return = (XawListRctumStruct 

*)MALLOC(si2eof(XawListRetumStruct)); 

Dprintf("Gram: SAVE %s\n",$2); 
Iist_rcturn- > string = $2; 

NcwBaich(VideoSave,hrULL,(caddrj)list_rcturn); 

} 

| SAVE_ABEKUS string string string string { 
AbekusCtrl 

Ctrl = (AbekusCtrl)MALLOC(sizcof(AbekusCtrlRcc)); 



%s\n",$2,$3,$4,$5); 



DprintfCGram: SAVE_ABEKUS %s %s %s 

strcpy(ctrl- > nameslOJ ,$2); 

strcpy(ctrl- > namesll],$3); 

strcpy(ctrl- > names[2] ,$4); 

strcpy(ctrl- > names(3] ,$5); 
NewBatch(VideoAbekusSave,(caddrj)ctrl,NULL); 
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| COMPARE string siring { 

XawLisiReturnStruct *list_return = (XawListReturnStruct 

')MALLOC(sizcof(XawLisLRetumSiruct)); 

Dprintf( n Gram: COMPARE %s with %s\n",$2,$3); 
list_reiurn- > siring =$2; 

NcwBaich(BatchCompare,(caddr_t)$3,(caddr_t)list_return); 

} 

| DROP string { 

XawLisiReturnStruci * 1 ist_rerurn = (XawListRerumS iruct 

•)MALLOC(sizeof(XawListRcturnStruct)); 

Dprintf("Gram: DROP %s\n",S2); 
lisi_rcrurn- > string «= $2 ; 

NewBatch(VidcoDrop,NULL,(caddr_t)list_rctum); 

} 

| IMPORTKLICS string { 

XawListReturnStruct *list_retum=(XawLi£lRcturnStruct 

•)MALLOC(si2eof(XawListRcturoStruct)); 

Dprintf("Graro: IMPORTJOJCS %s\n",$2); 
list_rctum- > string = $2; 

NewBatch(lmponKh*cs,NUli,(caddr_t)list_return); 

} 

| SHELL string { 

char •*argv, *str=$2; 

int c, argc=l, lcn«strlcn(str); 

DprintfC Shell %s\n",str); 

for(c =0;c < len;c + +) if (str[c] = ='*){ 

str[c] = '\0'; 

argc++; 
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} 



axgv=(char ")MALLOC((argc+l)'sizeof(char *)); 
argc=0; 

for(c = 0;c < len;c + = 1 +strlcn(str+c)) { 
argv[argc]=(char 

* )MALLOC((sulen(sir + c) + 1 ) »sizeof(chax)); 

snrpy(argv[argc] ,str+c); 

argc++; 

} 

argv[argc]=NULL; 

NewBaich(UnixShell,(caddr_t)argv,NULL); 

}; 



complex_cmd 



compress LEFT_BRACE comp_args RJGHTBRACE 
transform LEFT_BRACE trans_aigs RIGHT.BRACE 
copy copy_arg; 



compress : COMPRESS string { 

CompCtrl ctrl=InitCompCtrl(52); 



DprintfCGram: COMPRESS\n"); 
NcwBatch(BatchCompCrjl,(caddrj)ctrl,NULL); 



}; 



transform : TRANSFORM string { 

TransCtrl ctrl=InitTransCtrl($2); 



Dprinrf("Gram: TRANSFORM\n"); 
NcwBatcb(BatchTransCtrI,(caddr_t)ctrl,NX^L); 



}; 



copy : COPY string string { 
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CopyCtrl ctrl = InitCopyCtrl(S2); 
DprimffGram: Copy\n"); 
strcpy(ctrl- > name. $3); 

NewBatch(BatchCopyCirl , (caddr_i)cul.NULL) ; 



}; 



comp_args 



tians_args 



comp_args comp_arg; 



trans_args trans_arg; 



copy arg : DIRECT_COPY number number { 

DprintfCGram: Direct Copy (sample %d %d)\n",$2,$3); 
((CopyCtrl)global- > batchjist- > closure)- > mode = 1 ; 

((CopyCtrl)global- > batchjist- > closure)- > UVsample(0] = $2; 

((CopyCtrl)global- > batchjist- > closure)- > UVsample[l]= $3; 
} 

| DIFF { 

Dprintf("Gram: Difference Copy\n"); 
((CopyCtrl)global- > batch_list- > closure)- > mode =2; 

} 

| LPF.WIPE { 

DprintfCGram: LPF zero\n"); 

((CopyCtrl)global- > batchjist- > closure)- > mode =3; 

} 

| LPF_ONLY { 

Dprintf("Gram: LPF only\n"); 

((CopyCtrl)global- > batchjist- > closure)- > mode «4; 

} 
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| RGB_YUV { 

Dprimf("Gram: RGB/YUV\n"); 

((CopyCtrl)global- > batch_list- > closure)- > mode =5; 

} 

| GAMMA { 

Dprintf("Gram: Gamma convert\n"); 
((CopyCtrl)global- > batchjist- > closure)- > mode =6; 

}; 

comp_arg : VIDEO_NAME string { 

Dprinrf("Gram: Compress name %s\n",$2); 

srrcpy(((CompCtrl)global- > batchjist- > closure)- > name,$2); 
> 

| STATS_NAME string { 

Dprintf("Gram: Stats name %s\n", $2); 

strcpy(((CompCtrl)global- > batchjist- > closure)- > stats_name,$2); 

((CompCtrl)global- > batchjist- > closure)- > stats_switch=True; 
} 

! BIN_NAME string { 

Dprintf("Gram: Bin name %s\n\$2); 

strcpy(((CompCtrl)global- > batchjist- > closure)- > bin_name,$2); 

((CompCtrl)global- > batchjist- > closure)- > bin_swhch= True; 
} 

| STILL JvlODE { 

DprintfCGram: Still\n*); 

((CompCtrl)global- > batchjist- > closure)- > stillvid=True; 

} 
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! VIDEO_MODE { 

DprinrfCGram: Video\n n ); 

((CompCirl)global- > batchjist- > closure)- > stillvid =Fa)se; 

} 

j AUTO_Q boolean { 

Dprintf("Gram: Auto_q %s\n",$2?"Tnje":Talse"); 
((CompCtrl)global- > batchjist- > closure)- > auto_q=$2; 

} 

| QUANT_CONST fnumber { 

Dprintf("Gram: Quant const %f\n",$2); 

((CompCtrl)global- > batchjist- > closure)- > quant_const«= $2; 
} 

| THRESHCONST fnumber { 

Dprinrf("Gram: Thresh const %f\n",$2); 

((CornpCtil)global- > batchjist- > closure)- > thrcsh_const=$2; 

} 

j BASEJFACTOR number fnumber { * 

DprimfCGram: Base factor oct %d= %f\n\$2,$3); 

((CompCtrl)global- > batchjist- > closure)- > base_factors[$2] = $3 ; 
} 

| DIAG_FACTOR fnumber { 

DprintffGram: Diag factor %f\n",$2); 

((CompCtrl)global- > batchjist- > closure)- >diagJactor= $2; 

} 

j CHROME_FACTOR fnumber { 

Dprintf("Gram: Chrome factor % An" ,$2); 



((CompCtrl)global- > batchjist- > closure)- > cnrome_factor=$2; 
} 
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| DECISION decision { 

DprintfCGram: Decision changed\n"); 
((CompCtrl)global- > batchjist- > closure)- > decide =$2; 

} 

j FEEDBACK number { 

((CompCirl)global- > batchjist- > closure)- > feedback = $2; 
((CompCtrl)global- > batchjist- > closure)- > auto_q=True; 

} 

| FILTER filter { 

String filters[2] = { "None", "Exp"}; 
DprintfCGram: Filter %s\n B ,filters($2]); 
((CompCtrl)global- > batch_list- > closure)- > filter = $2 ; 

} 

| CMPCONST raumber { 

Dprintf("Gram: Comparison %f\n",$2); 
((CompCtrl)global- > batchjist- > closure)- > cmp_const = $2; 

} 

| FPS faumber { 

DprintfCGram: Frame Rate %f\n",$2); 
((CompCtrl)global- > batchjist- > closure)- > fps = $2; 

} 

| BJTRATE number { 

DprintfCGram: %dx64k/s\n",$2); 

((CompCtri)globaJ- > batchjist- > closure)- > bitrate = $2; 

} 

| BUFFER { 

DprintfCGram: Buffer on\n"); 

((CompCtrl)global- > batchjist- > closure)- > buf_switch=True; 

); 

decision : DEC_MAX{ $$ = 0; } 
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[ DEC_S1GABS { $$ = 1; } 
■ DECJ1GSQR { $$ = 2; ); 

filter : FLT_NONE { $$ = 0; } 

| FLT_EXP { $$ = 1; }; 

trans_arg : VIDEONAME string { 

DprintfCGram: Transform name %s\n",$2); 

strcpy(((TransCtrl)global- > baichjist- > closure)- > name,$2); 
} 

| DIRECTION boolean { 

DprintfCGram: Direction %s\n",$2?"True": "False"); 
((TransCtrl)global- > batchjist- > closure)- > dim— $2; 

> 

| SPACE number number { 

DprintfCGram: Space %d %d\n",$2,$3); 
((TransCui)globaJ- > baichjist- > closure)- > space[0) = $2; 
((TransCtrl)global- > batchjist- > closure)- > space[I] =$3; 

} 

| PRECISION number { 

DprintfCGram: Precision %d bits\n",8+52); 
((TransCtrl)global- > batchjist- > closure)- > precision=$2; 

}; 

boolean : BOOLEAN { $$ = $1; }; 

string : STRING { 

ptr - (char •)malloc(strlen($ 1 ) + 1 ) ; 

strcpy(ptr,l+$l); 
ptr[strlen(ptr)-l]« , \0'; 

$$ = ptr; 



}: 
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fnumber : FNUMBER { $$ = $1; }; 
number : NUMBER { $$ = $1; }; 

%% 

yyenor(s) char *s; { 

Eprinrf("Gram: error %s\n\s); 

exit(3); 

} 

void Nc wBaich(proc f closure ,call_data) 
Proc proc; 

caddrj closure, call_data; 
{ 

Batch bat=(Baich)MALLOC(sizcof(BatchRcc)); 

bat- > proc = proc; 
bat- > closure = closure; 
bat- > call_data=call_data; 
bat- > next = global- > batch Jist; 
global- > batch Jist = bat; 

} 
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source/Klics.h 



/• Block size - no not change */ 
#define BLOCK 2 

typedef int Block[BLOCK] [BLOCK]; /♦ small block •/ 
/* tokens */ 

^define TOKENS 15 

#define ZERO_STILL 0 
#define NON_ZERO_STHX 1 
#defuie BLOCK.SAME 2 
^define ZERO_VID 3 
#dcfine BLOCK_CHANGE 4 
#define LOCAL_ZERO 5 
#define LOCAL_NON_ZERO 6 
#define CHANNEL_ZERO 7 
jfdefine CHANNEL_NON_ZERO 8 
^define OCT_ZERO 9 
^define OCT_NON_ZERO 10 
#defroe LPF ZERO 11 
#define LPF_NON_ZERO 12 
#define LPF_LOC_ZERO 13 
#define LPF_LOCNON_ZERO 14 

static int token_bits[TOKENS] 
={1.1. 1.2,2,1.1.1.1.1.1.1.1.1.1}: 

static unsigned char token_codes[TOKENS] = {0.1.0,l,3.0,1.0.1,O.1.0,l,0.1}; 
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/• decision algorithms */ 
^define MAXIMUM 0 
^define S1GABS 1 
#define S1GSQR 2 

/* compression modes */ 
Adeline STILL 0 
^define SEND 1 
/{'define VOID 2 
#defineSTOP 3 

/* LookAbead histogram */ 
#define HISTO 400 
#defme HISTO_DELTA 20.0 
^define H1STOJ3ITS 9 

^include "../include/Bits.h" 

typedef struct { 
Video sre, dst; 

Boolean stillvid, siatsjwitch, bin_swhch, auto_q, buf_switch; 
double quant_const, thresb_const, cmp_const, fps, 

base_factors[5], diagjactor, chromejactor; 
int bitrate, feedback, decide, filter; 

char namelSTRLEN), stats_name[STRLEN], bin_name[STRLEN], 
src_name[STRLEN]; 

Bits bfp; 
} CompCtrlRec, *CompCtrl; 



typedef struct { 

Boolean stillvid, auto_q, buf_switch; 

double quant_const, thresh_const, cmp_const, fps, 
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base faciors(5], diag^factor, chrome_factor; 

int decide; 
VideoFormat type; 
Boolean disk, gamma; 
int rate, start, size[3], UVsample[2]; 
VideoTrans trans; 
int precision; 
} KlicsHeaderRec, *KJicsHeader; 
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source/KlicsSA.h 



include <stdio.h> 
include "Bits.h" 



gif(bool, value) ((bool)?-( value): (value)) 



Adeline ne 



exiem Bits bopen(); 

extern void bcloseO. bread(), bwrite(), bflushO; 

/• Stand AJone definitions to replace VideoRec & CompCtrl assumes: 

* video- > rype == YUV; 

* video- >UVsampleD = {1,1}; 

* video- > trans. wavelet.spaceD = {3,2}; 

* ctrl- > binswitch == True; 
*/ 

#define SA_WIDTH 352 
#define SA_HEIGHT 288 
#defme SA_PREC1SI0N 2 

static double base_factors[5]={1.0,0.32,0.16,0.16,0.l6}; 
^define diagjactor 1.4142136 
#defihe chrome_factor 2.0 
#define thresb^const 0.6 
^define cmp_const 0.9 

/* Block size - no not change */ 
#define BLOCK 2 



rypedef int Block[BLOCK][BLOCK);/* small block */ 
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/• tokens */ 

define TOKENS 15 

^define ZER0_ST1LL 0 
^define NON_ZERO_STILL 1 
^define BLOCK_SAME 2 
^define 2ER0_V1D 3 
^define BLOCK_CHANGE 4 
^define LOCAL_ZERO 5 
#define LOCAL_NON_ZERO 6 
^define CHANNEL_ZERO 7 
^define CHANNEL NON ZERO 8 
#define OCT_ZERO 9 
#dcfinc OCT_NON_ZERO 10 
#define LPF_ZERO 11 
#define LPF_NON_ZERO 12 
^define LPF_LOC_ZERO 13 
#define LPF_LOC_NON_ZERO 14 

static int token_bits [TOKENS] 

={1,1,1,2,2,1,1,1,1.1,1,1,1.1,1}; 

static unsigned char tokcn_codes[TOKENS]={0,l,0,l,3,0,l,0,l,0,l,0,l,0 f l}; 

/* decision algorithms */ 
#dcfme MAXIMUM 0 
#define SIGABS 1 
^define SIGSQR 2 

/* compression modes */ 
^define STILL 0 
#defineSEND 1 
tfdefineVOID 2 
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^define STOP 3 

/* Look-Ahead histogram */ 
define HJSTO 400 
#define H]STO_DELTA 20.0 
^define HlSTO_BITS9 
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source/Lcx.l 



%{ 



Lex driver for input files: .pal .vid .bat 



*/ 



^include "../include/xwave.h" 
^include "../includc/Gram.h" 
extern int ParselnputO; 



#undef 
#undef 
#undef 
ihindef 
^define 
^define 
^define 
^define 



unput 

input 

output 

feof 

unput(c) 

inputO 
output(c) 

feofO 



ungetc(c,global- > parse_fp) 

PaiseInput(£lobal- > parse_fp) 

putchar(c) 

(1) 



%> 



number -?[0-9]+ 
fnumber -7[0-9J+V[0-9]+ 
string \-a A "]|\\.n* 

%sun WATT MAP VIDEO BATCH BATCHTRANS BATCHCOMP 

%d 2000 
%p 4000 
%e 2000 
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7*" { 



char c»'\0'; 



whik(c! = V) { 

while (c! = '*')c = input(); 
while <c= = '*') c = input(); 

} 



} 



\.pal { BEGIN MAP; DprintfCLex: Reading palette file\n"); return(FILEJ > AL); } 
\.vid { BEGIN VIDEO; DprintffLex: Reading video file\n"); return(FTLE_VlD); } 
\.bat { BEGIN BATCH; DprintfCLex: Reading batch filc\n B ); retura(FILE_BAT); } 



{number} 

{string} 

{fhumber} 

< MAP > Palette 
<MAP>\{ 
<MAP>\} 

< MAP > Range 

< MAP > Line 



{ (void)sscanf(yytext, *%d", AyylvaLnum); rcturn(NUMBER); } 

{ yylval.ptr = (char *)yytexi; return(STRING); } 

{ (void)sscanf(yytext, *%ir, &yylval.faum); return(FNUMBER); } 

{ re rura(P ALETTE); } 

{ retum(LEFT_BRACE); } 
{ retuni(RIGHT_BRACE); } 
{ return(RANGE); } 
{ remrn(LINE); } 



< VIDEO Type 

< VIDEO MONO 

< VIDEO RGB 

< VIDEO > YUV 

< VIDEO Rate 

< VIDEO Disk 

< VIDEO > Gamma { 

< VIDEO > Negative 



{ return(TYPE); } 

{ return(FORMAT_MONO); } 

{ return(FORMAT_RGB); } 

{ return(FORMAT_YUV); } 

{ return(RATE); } 

{ retum(DISK); } 

return(GAMMA); } 

{ remrn(NEGATTVE); } 
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< VIDEO > Path { return(PATH); } 

< VIDEO > Files { retum(FlLES); } 

< VIDEO > Transform { rcturn(TRANSFORM); } 

< VIDEO > None { rerum(TRANSFORM_NONE); } 

< VIDEO Wavelet { rerurn(TRANSFORM_WAVE); } 

< VIDEO > Stan { return(START); } 

< VIDEO > End { return(END); } 

< VIDEO > Length { retum(LEN); } 

< VIDEO > Dimensions { rctum(DIM); } 

< VIDEO > Header { return(HEADER); } 

< VIDEO > Offsets { return(OFFSETS); } 



< VIDEO > Size 


{ return(SIZE); } 


< VIDEO > Precision 


{ rerurn(PRECISION); } 


< VIDEO > Yes 


{ yylval.bool= True; rcuirn^uui-nAi^;, / 


<VIDEO>No 


{ yylval.bool=raJsc; reiuTTHDUwx^c-ttJv, / 


< BATCH > Load 


{ rerurn(LOAD); } 


< BATCH > Save 


{ rrturn(SAVE); } 


< BATCH > Save Abckus 


{ rrrurn(SAVE_ABEKUS); } 


< BATCH > Compare 


{ rerurn(COMPARE); } 


< BATCH > Drop 


{ return(DROP); } 


< BATCH > ImponKLICS 


{ reuira(IMPORT_KLICS) ; } 


< BATCH > Transform 


{ BEGIN BATCHJTRANS; return(TRANSFORM); } 


< BATCH > Compress 


{ BEGIN BATCHjrOMP; return(COMPRESS) 


< BATCH >Xwave 


{ retun»(XWAVE); } 


< BATCH > Shell 


{ return(SHELL); } 


< BATCH > Copy 


{ return(COPY); } 


< BATCH > Direct 


{ re tura(DIRECTCOPY); } 


< BATCH >Diff 


{ returnCDIFF); } 


< BATCH > LPFzero 


{ retura(LPF_WTPE); } 


< BATCH >LPFonly 


{ return(LPF_ONLY); } 


< BATCH >RGB-YUV 


{ return(RGB_YUV); } 
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< BATCH > Gamma 



{ rerurn(GAMMA); } 



< BATCH_COMP > VideoName 

< BATCH.COMP > Stats 

< BATCH_COMP > Binary 

< BATCH.COMP > Yes 
<BATCH_COMP>No 

< BATCH.COMP > Still 

< BATCH_COMP > Video 

< BATCH JTOMP > AutoQuant 

< BATCH_COMP > QuantConst 

< BATCH_COMP > ThrcsbConst 

< BATCHCOMP > BaseFactor 

< BATCH.COMP > DiagFactor 

< BATCH_COMP > ChromcFactor 

< BATCH_COMP > Decision 

< BATCH_COMP > Feedback 

< BATCH.COMP > Maximum 

< BATCH.COMP >SigmaAbs 

< BATCH_COMP> SigmaSqr 

< BATCH.COMP > Filter 

< BATCH_COMP > None 

< BATCH.COMP > Exp 

< BATCH_COMP > CmpConst 

< BATCH.COMP > FramcRate 

< BATCH.COMP > Bitrate 

< BATCH.COMP > Buffer 

< BATCH.COMP >\{ 

< BATCH.COMP >\} 
returnflUGHT.BRACE); } 



retura(VTDEO.NAME); } 

return(STATS.NAME); } 

return(BIN_NAME) ; } 

{ yylval.bool=True; return(BOOLEAN); } 
{ yylval.bool = False; retum(BOOLEAN); } 

rcturn(STILL_MODE); } 

retum(VTDEO.MODE); } 

rerurn(AUTO.Q); } 

return(QUANT_CONST); ) 
[ reiuni<THRESH_CONST); } 
[ re tum(BASE.F ACTOR); } 
[ return(DIAG.FACTOR); } 
[ reruni(CHROME_FACTOR); } 

[ rcturn(DEClS10N); } 
[ reuirn(FEEDBACK); } 

{ rcrurn(DECMAX); } 
[ return(DECSIGABS); } 
[ remra(DEC_SIGSQR); } 
( return(FILTER); } 
( return(FLT.NONE); } 

{ return(FLT_EXP); } 
{ return(CMP_CONST); } 
{ rcturn(FPS); } 
{ returnflBITRATE); } 
{ return(BUFFER); } 

{ rcturn(LEFT.BRACE); } 

{ END; BEGIN BATCH; 



< BATCH TRANS > VideoName { return(VTDEO_NAME); } 
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< BATCH TRANS > Direction { renini(DIRECTION); } 

< BATCH_TRANS > Space { retuni(SPACE); } 

< BATCH TRANS > Precision { return(PREClS10N); } 

< BATCH TRANS > Yes { yylval.bool=Troe; return(BOOLEAN); } 

< BATCH TRANS > No { yylval.bool =False; retum(BOOLEAN) ; } 

< BATCH_TRANS > \{ { return(LEFT_BRACE); } 

< BATCh'tRANS >\} { END; BEGIN BATCH; retum(RJGHT_BRACE); } 



[. \t\n] 



{;} 



, %% 

yywrapO { rcturn(l); } 
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source/Transform.h 



typedef struct { 
Video src; 

char name (STOLEN! , src_name[STRLEN]; 
int space [2], precision; 
Boolean dim; 
} TransCtrlRec. ♦TransCtrl; 
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source/Video.b 



typcdef struct { 

char names[4][STRLEN]; 
} AbekusCtrlRec, 'AbelaJsCtrl; 
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source/makefile 



tt Xwave Makefile 
ft 

CFLAGS = -O -I../iDclude 

UBS = -lXaw -lXmu -lXt -lXext -1X11 -lm -11 -L/usr/openwin/lib 

.KEEP_STATE: 
.SUFFIXES: .c .o 

xwaveSRC = Select.c Conven.c xwave.c IniiMain.c Pop2.c Video2.c Malloc.c 
InitFrame.c \ 

Frame x Transform.c Convolvc3.c Updatt.c Image. c Menu.c 

PullRigbtMenu.c \ 

NamcButtocc SmeBSBpr.c Process.c Lex.c Gnun.c Parse.c Color.c \ 
Bits.c Storage.c Copy.c Message.c Palene.c ImponKlics.c Icon3.c Klics5.c 

\ 

KJicsSA.c KlicsTestSA.c ImportKJicsSA.c ImpKlicsTestSA.c 



objDIR = .,/$(ARCH) 

xwaveOBJ = $(xwaveSRC:%.c=$(objDIR)/%.o) 

S(objDIR)/xwave: S(xwaveOBJ) 

gcc -o $@ $(xwaveOBJ) $(UBS) $(CFLAGS) 
echo •••••••••••••••••• 

S(xwaveOBJ): $$(@F:.o-.c) ../include/xwave.h 
gcc -c S(@F:.o=.c) $(CFLAGS) -o S® 



Lex.c: Gram.c Lex.l 
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lex Lcx.l 

mv lex.yy.c Lex.c 

Gram.c: Gram.y 

bison -dh Gram.y 

mv $(@>F:.c = .tab.h) /include/Gram. h 
mv $«g>F:.c = .tab.c) Gram.c 



f 



include/Bits.h 



- 433 - 



#ifndef _Bits_h 
#define _Bits_h 

typedef struct { 

unsigned char buf; 

int bufsize; 

FILE *fp; 
} BiisRec, *Biis; 

#endif 
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include/DTheader.h 



rypedef struct DTheader { 

char file_id[8); /* "DT-1MAGE" */ 

char struct jd; /* 1 */ 

char prod_id; /• 4 */ 

char util_id; /* 1 */ 

char board_id; I* 2*1 

char create Jimc[9]; /• [O-Hyear, [2]roonth, I3]dayofrnonth, [4)dayofweek, 
[5]hour. [6]min, [7]scc, [8]sec/l00 */ 



char mod^umc[7j t 


/* as create time 

/ (V) W ft W%* ■■■■■■ 


char datum; 


/* 1 */ 


char datasize[4]; 


■/• 1024?? */ 


char file_stnict; 


/• 1 •/ 


char datatype; 


/• 1 •/ 


char compress; 


/• 0*/ 


char store; 


/* 1 */' 


char aspcct[2]; 


/* 4, 3 •/ 


char bpp; 


/* 8 */ 


char spatial; 


/* 1 •/ 


char width[2]; 


/• 512 •/ 


char height(2]; 


/• 512 */ 


char full_width[2]; 


/* 512 */ 


char full_beigbtf2]; 


V* 512 */ 


char unused 1(45]; 




char comment[160]; 




char itnused2[256]; 





} DTheader; 
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include/Icon. b 



typcdef enum { 

FW label, FW_icon, FW_comroand, FW texi, FWJiutton, FWJconbunon, 

FW_view, FWjoggle, 
FW_yn, 

FW up, FW_down, FW inicgcr, 
FW_scroll, FW_float, 
FWform, 
} FonnWidgetTypc; 

typedef enum { 

SW_below, SW_ovcr, SW_top, SW_racnu, 

} SbellWidgetType; 

typedef struct { 

String name; 

String contents.; 

int fromHoriz, fromVcrt; 

FormWidgetType type; 

String hook; 
} Fonnltem; 
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include/linage.h 



• SXConsonium: Image.h.v 1.24 89/07/21 01:48:51 kit Exp S 
*/ 

/ ».... ........ 

Copyright 1987, 1988 by Digital Equipment Corporation, Maynard, Massachusetts, 
and the Massachusetts Institute of Technology, Cambridge, Massachusetts. 

All Rights Reserved 

Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided that the above copyright notice appear in all copies and that 
both that copyright notice and this permission notice appear in 
supporting documentation, and that the names of Digital or MIT not be 
used in advertising or publicity pertaining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING 

ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO 
EVENT SHALL 

DIGITAL BE LIABLE FOR ANY SPECIAL. INDIRECT OR CONSEQUENTIAL 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROFITS, 

WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER 
TORTIOUS ACTION, 
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AWSING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
THIS 

SOFTWARE. 

#ifndef _XawImage_h 
^define _Xawlmage_h 

/■•*•*"' ••••••••• • 

* Image Widget 

• */ 

^include <X11/Xaw/Simple.n> 
^include <Xll/Xmu/CoDveners.h> 

/* Resources: 

Name Class RcpType Default Value 



border BorderColor Pixel XtDefaultForeground 

borderWidth BorderWidth Dimension 1 
cursor Cursor Cursor None 

destroyCallback Callback XtCallbackList NULL 

insensitiveBorder Insensitive Pixmap Gray 
mappedWhenManaged MappedWhenManaged Boolean 
sensitive Sensitive Boolean True 

bitmap Bitmap Pixmap NULL 
callback Callback XtCallbackList NULL 
x Position Position 0 



True 
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y Position Position 0 

*/ 

#defuie XtNbitmap "bitmap" 

^define XtCBitraap "Bitmap" 

/* Class record constants */ 

extern WidgetClass imageWidgetClass; 

rypedef struct JroageClassRec *lmageWidgetClass; 
rypedef struct JmageRec *ImagcWidgei; 

#endif /* _Xawlmagc_h •/ 

/• DON'T ADD STUFF AFTER THIS #endif •/ 
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r 



) 
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include/lmageHeader.h 

/• Author: Philip R. Thompson 

* Address: phils@aihcna.mit.edu, 9-526 

* Note: size of header should be 1024 (IK) bytes. 

* SHeader: ImageHeader.h,v 1.2 89/02/13 09:01:36 phils Locked $ 

* SDate: 89/02/13 09:01:36 $ 

* SSourcc: /mit/phils/utils/RCS/lmageHeader.h.v $ 

*l 

^define 1MAGE_VERSI0N 3 



rypcdef struct ImageHeader { 

char nie_versionl8]; /• header version •/ 

char header_sizc[8]; /• Size of file header in bytes ♦/ 

char image,width{8]; /* Width of the raster image •/ 

char image_heightl8]; /* Height of the raster imgage •/ 

char num colors[8]; /• Actual number of entries in c_map */ 

char n um~channels[8]; /• 0 or 1 = pixmap. 3 = RG&B buffers •/ 

char num j)ictures[8]; /* Number of pictures . in file ♦/ 

char alpha j:hannel[4]; /• Alpha channel flag •/ 

char runlengih[4]; /• Runlength encoded flag ♦/ 

char author[48]; /* Name of who made it •/ 

char date[32); /* Date and time image was made »/ 

char program[16]; /* Program that created this file */ 

char comment[96]; /• other viewing info, for this image •/ 

unsigned char cjnap[256][3]; /• RGB values of the pixmap indices */ 

} ImageHeader; 



/* Note: 

♦ - All data is in char's in order to maintain easily portability 
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* across machines and some human readibility. 

* - Images may be stored as pixmaps or in seperaie channels, such as 

* red, green, blue data. 

* - An optional alpha channel is sepcrate and is found after every 

* num ^channels of data. 

* - Pixmaps, red, green, blue, alpha and other channel data are stored 

* sequentially after the header. 

* - If num channels = 1 or 0, a pixmap is assumed and up to num_colors 

* of colormap in the header are used. 
♦/ 

end ImageHeader.h 
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incjude/lrnageP.h 



/* 

* SXConsonium: ImageP.h,v 1.24 89/06/08 18:05:01 swick Exp $ 



*/ 





Copyright 1987, 1988 by Digital Equipment Corporation, Maynaxd, Massachusetts, 
and the Massachusetts Institute of Technology, Cambridge, Massachusetts. 

All Rights Reserved 

Permission to use, copy, modify, and distribute this software and its 
documentation for any purpose and without fee is hereby granted, 
provided thai the above copyright notice appear in all copies and that 
both that copyright notice and this permission notice appear in 
supporting documentation, and that the names of Digital or MTT not be 
used in advertising or publicity pertaining to distribution of the 
software without specific, written prior permission. 

DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING 

ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL 

DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL 
DAMAGES OR 

ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR 
PROFITS, 

WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER 
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TORTIOUS ACTION, 

ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF 
THIS 

SOFTWARE. 

m9m w ...... • ........».••/ 

/* 

* ImageP.h - Private definitions for Image widget 

#ifndef _XawImageP_h 
#define _XawImageP_h 

■ * 

♦ Image Widgei Private Data 

................ - ••••• — »••••*••/ 

^include ".. /include/Image .h" 
^include <Xll/Xaw/SimpleP.b> 

/* New fields for the Image widget class record */ 

rypedef struct {int foo;} ImageClassPan; 

/• Full class record declaration */ 
rypedef struct JmageClassRec { 

CoreClassPan core_class; 

SimpleClassPart siraple_class; 
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ImageClassPan image jrlass; 
} InsagcClassRcc; 

extern ImageClassRec imageClassRec; - 

/* New fields for the Image widget record */ 
typedef struct { 
/* resources */ 

Pixmap pixmap; 

XtCallbackList callbacks; 

/* private state */ 

Dimension map_ width, mapjieight; 

} lmagePan; 

* Full instance record declaration 

» / 

typedef struct _ImageRec { 

CorePart core; 

SimplePan simple; 

ImagePait image; 
} ImageRec; 



#endif /• _XawImageP_h */ 
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include/Message.h 



typcdcf struct { 

Widgci shell, widget; /* shell and text widgets (NULL if not created •/ 

XawTextBlock info; /* Display text •/ 

int size, rows, cols; /- Size of buffer (info.ptr) & dimensions of display •/ 

XawTextEditType edit; /• edit type */ 

Boolean own_text; ./* text is owned by message? V 

} MessageRec, *Message; 
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include/Palette.h 



^define PaJettePath V 

^define PalctieExt ".pal" 

typedef struct _MapRec { 
ini start, finish, m f c; 
struct _MapRec *next; 

} MapRec, *Map; 

typedef struct _PaleneRec { 

char namefSTRLEN]; 

Map mappings; 

struct PaletteRcc *next; 

} PaJetteRec, 'Palette; 
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include/PullRightMenu.h 



/* 

* SXConsonium: PullRightMenu.h.v 1.17 89/12/11 15:01:55 kit Exp $ 

* Copyright 1989 Massachusetts Institute of Technology 

* 

* Permission to use, copy, modify, distribute, and sell this software and its 

* documentation for any purpose is hereby granted without fee, provided that 

* the above copyright notice appear in all copies and that both that 

* copyright notice and this permission notice appear in supporting 

* documentation, and that the name of M.I.T. not be used in advertising or 

* publicity pertaining to distribution of the software without specific, 

* written prior permission. M.I.T. makes no representations about the 

* suitability of this software for any purpose. It is provided "as is" 

* without express or implied warranty. 
* 

* M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO 
EVENT SHALL M.I.T. 

* BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

* OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

* CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
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* PallRighiMcnu.h - Public Header file for PullRightMenu widget. 

* 

* This is the public header file for the Athena PullRightMenu widget. 

* It is intended to provide one pane pulldown and popup menus within 

* the framework of the X Toolkit. As the name implies it is a first and 

* by no means complete implementation of menu code. It does not attempt to 

* fill the needs of all applications, but does allow a resource oriented 

* interface to menus. 
* 

*/ 

tfifndef _PullRightMenu_h 
#defme _PullRightMenu_h 

#include <X11/Shell.b> 

^include <Xll/Xmu/Converters.h> 



* PullRightMenu widget 



/* PullRightMenu Resources: 



Name 



Class 



RepType 



Default Value 



XtDefaultBackground 
None 



background Background Pixel 

backgTOundPixmap BackgroundPixmap Pixmap 
borderColor BorderColor Pixel XtDefaultForeground 

borderPixmap BorderPixmap Pixmap None 
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BorderWidth Dimension 1 

VenicalMajgins Dimension VenicalSpace 
ColumnWidth Dimension Width of widesi text 
Cunor Cursor None 

Callback Pointer NULL 

Height Dimension 0 

Label String NULL (No label) 

LabelClass Pointer smeBSBObjectClass 
mappcdWhenMarjaged MappedWhenManaged Boolean True 
rowHeight RowHeight Dimension Height of Font 

Sensitive Boolean 

VenicaJMargins Dimension 
Width Dimension 0 

Widget Widget NULL 
Position Position 0 

Position Position 0 



borderWidth 
bonomMargin 
columnWidth 
cursor 

destroyCallback 
height 
label 

labelClass 



sensitive 
topMargin 
width 
button 
x 

y 



True 
VenicalSpace 



rypedef struct _PullRigbtMenuClassRec* PullRightMenuWidgetClass; 
rypedef struct PullRightMenuRec* PullRightMenuWidget; 

extern WidgctClass pullRightMenuWidgetClass; 

#define XtNcursor "cursor" 
#define XtNbottomMargin "bonomMargin" 
#define XtNcolumnWidth "columnWidth" 
#defme XtNlabelClass "labelClass" 
#define XiNmenuOnScreen "mcnuOnScreen" 
^define XtNpopupOnEntry " popup OnEntry" 
#define XtNrowHeight "rowHeight" 
#define XtNtopMargin "topMargin" 
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^define XiNbunon "button" 

^define XtCColumnWidth "ColumnWidth" 
#define XtCLabclClass "UbelClass" 
#define XtCMenuOnScreen "MenuOnScreen" 
^define XtCPopupOnEntry "PopupOnEntry" 
^define XtCRowHcigbt "RowHeight" 
#define XtCVenicalMaigins "VenicalMargins" 
^define XtCWidgct "Widget" 

» „••••••••♦••••**•••*••*♦***••** 

♦ Public Functions. 

m09 „ * *• ***/ 

/* Function Name: XawPullRightMenuAddGlobalAcrions 

• Description: adds the global actions to the simple menu widget. 

* Arguments: app_con - the appcontext. 

* Returns: none. 
*/ 

void 

XawpullRightMenuAddGlobalActions(/* app_con */); 
/♦ 

XtAppContext app_con; 
•/ 

#endif/* PullRightMenu_h */ 
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include/SmeBSBpr.h 



• SXConsonium: SmeBSB.h.v 1.5 89/12/11 15:20:14 kit Exp $ 

• Copyright 1989 Massachusetts Institute of Technology 

• Permission to use, copy, modify, distribute, and sell this software and its 

• documentation for any purpose is hereby granted without fee, provided that 

• the above copyright, notice appear in all copies and that both that 

• copyright notice and this permission notice appear in supporting 

• documentation, and that the name of M.I.T. not be used in advertising or 

• publicity ^naming to distribution of the software without specific, 

• written prior permission. M.l.T. makes no representations about the 

• suitability of this software for any purpose. It is provided "as is' 

• without express or implied warranty. 

• M.l.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

• IMPLIED WARRANTEES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.l.T. 

• BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

• WHATSOEVER RESULTING FROM LOSS OF USE. DATA OR PROFITS. 
WHETHER IN AN ACTION 

• OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
OF OR IN 

• CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 
•/ 
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* SmeBSBpr.h - Public Header file for SmeBSB object. 
* 

* This is ihe public header file for the Athena BSB Sme object. 

* It is intended to be used with the simple menu widget. This object 

* provides bitmap - string - bitmap style entries. 



#ifhdef _SmeBSBpr_h 
#define _SmeBSBprJi 

^include <Xll/Xmu/Converxers.h> 

^include <X11/Xaw/Sme.h> 

* SmeBSBpr object 

4 

+ + + + + + * + + + + + + » + + + + + — + + * + 

/* BSB pull-right Menu Entry Resources: 



Name Class RepType Default Value 



callback Callback Callback NULL 

destroyCallback Callback Pointer NULL 

font Font XFoniStruct * XtDefaultFont 

foreground Foreground Pixel XtDefaultForeground 

height Height Dimension 0 

label Label String Name of entry 
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lefiBiunap 

lefiMargin 

righiBianap 

rightMargin 

sensitive 

venSpace 

width 

x 

y 
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LefiBitmap Pixmap 
HorizontalMargins Dimension 
RjgbtBitmap • Pixmap 
HorizontalMargins Dimension 



None 
4 

None 
4 



Sensitive 
VenSpace 
Width 
Position 
Position 



Boolean 
int 

Dimension 

Position 

Position 



True 



25 
0 

On 
0 



menuName MenuName String "menu" 



rypedef struct _SmcBSBprClassRec *SmeBSBprObjectClass; 
typcdef struct _SmeBSBprRec *SmeBSBprObject; 

extern WidgetClass smcBSBprObjectClass; 

#definc XtNleftBitmap "leftBitmap" 

^define XtNleftMargin "leftMargin" 

#defme XtNrightBitmap "rightBitmap• 

#defme XlN rightMargin "rightMargin" 

#defmc XtNvcrtSpace "venSpace" 

if define XtNmenuName "menuName" 

#defme XtCLenBitmap "LeftBitmap" 

#defme XtCHorizonialMargins "HorizontalMargins" 

#defme XtCRightBitmap "RightBitmap" 

#define XtCVenSpace "VertSpace" 

#dcfine XtCMenuName "MenuName" 



#endif /* _SmeBSBpr_h •/ 
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includc/SmeBSBprP.h 



SXConsonium: SmeBSBP.h.v 1.6 89/12/11 15:20:15 kit Exp $ 

• Copyright 1989 Massachusetts Institute of Technology 

* 

• Permission to use, copy, modify, distribute, and sell this software and its 

- documentation for any purpose is hereby granted without fee, provided that 

• the above copyright notice appear in all copies and that both that 

• copyright notice and this permission notice appear in supporting 

• documentation, and that the name of M.I.T. not be used in advertising or 

• publicity pemining to distribution of the software without specific. 

• written prior permission. M.I.T. makes no representations about the 

• suitability of this software for any purpose. It is provided "as is" 

• without express or implied warranty. 

• M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, 
INCLUDING ALL 

• IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO 
EVENT SHALL M.I.T. 

• BE liable FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES 
OR ANY DAMAGES 

• WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, 
WHETHER IN AN ACTION 

• OF CONTRACT. NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT 
^COnIeCTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 

. * Author: Chris D. Peterson, MIT X Consortium 
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•/ 
/* 

* SmeP.h - Private definitions for Sme object 

* 

#ifndef _XawSmeBSBP_h 
^define _XawSmeBSBP_h 

* Sme Object Private Data 

, * •••*/ 

^include <Xll/Xaw/SmcP.b> 
^include "../include/SmcBSBpr.h" 

/ •••••••• *** 

• New fields for the Sme Object class record. 

mm *♦/ 

rypedef struct SmeBSBprClassPart { 
XtPointcr extension; 
} SmcBSBprClassPart; 

7* Full class record declaration */ 
rypedef struct _SmeBSBprClassRec { 
RectObjClassPart rect_class; 
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SroeClassPan sme_class; 

SmeBSBprClassPart smc_bsb_class; ^ 
} SmcBSBprClassRec; 

extern SmeBSBprClassRec smeBSBprClassRec; 

/* New fields for the Sme Object record */ 
typedef struct { 
/* resources */ 

String label; /* The entry label. */ 

int vert.space; /• extra vert space to leave, as a percentage 

of the font height of the label. */ 
Pixmap left_bitmap, right Jjitmap; /* bitmaps to show. •/ 
Dimension kftjnargin, right.margin; /♦ left and right margins. •/ 
Pixel foreground; /• foreground color. */ 
XFontStruct • font; /* The font to show label in. */ 

XUustify justify; /* Justification for the label. •/ 

String menu_name; /• Popup menu name •/ 

/* private resources. */ 

Boolean set_values_area,cleared; /• Remember if we need to unhighlight. •/ 

GCnonn_gc; /• noral color gc. ♦/ 

GCrev_gc; /• reverse color gc. •/ 

GC norm_gray jc; /* Normal color (grayed out) gc. •/ 

GC inven_gc; /♦ gc for flipping colors. */ 
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Dimension left>tmap_width; /• size of each bitmap. 
Dimension leftjritmapjicight; 
Dimension right_binnap_width; 
Dimension right_bitmap_height; 



7 
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} SracBSBprPan; 



Full instance record declaration 



rypedef struct _SmeBSBprRec { 

ObjectPart object; 

RectObjPart rectangle; 

SmePart sme; 

SmeBSBprPart smc_bsb; 
} SmeBSBprRec; 



* 

* Private declarations. 



#endif/* XawSmeBSBPpr_h */ 
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include/xwave.h 



^include <X11/Xlib.h> 

^include <X11/Xutil.h> 

^include <Xll/Xatom.h> 

^include <X11/Xaw/Cardinals.h> 

^include <Xll/StringDefs.h> 

^include <X11/Xmu/Xmu.h> 

^include < X 1 1/Xaw/Command.h > 

^include <XU/Xaw/List.h> 

^include <Xll/Xaw/Box.h> 

^include <XH/Xaw/Fonn.h> 

^include , < XI l/Xaw/Scrollbar.h> 

^include <Xll/Xaw/Viewport.h> 

#indudc <Xll/Xaw/AsciiTcxt.h> 
^include <XH/Xaw/Dialog.h> 
^include <Xll/Xaw/MenuBunon.h> 
^include <Xll/Xaw/SimpleMcnu.b> 
^include <Xll/Xaw/SmcBSB.h> 
^include <Xll/Xaw/Toggle.b> 

^include "SmcBSBpr.h" 

^include •PullRightMcnu.h* 

^include <X11/Shell.h> 

^include <Xll/cureorfont.h> 

#dcfine STRLEN 100 

define NAME_LEN 20 

#include 'Imagch" 

#include "Messagc.h" 

# include <direm.h> 

^include <math.h> 
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include <stdio.h> 
^include "Palene.h" 
^include "Icon.h" 

define PLOT.DIR "graphs- 
define PLOTEXT Vploi" 
define ELLA_IN_DIR 
define ELLA_IN_EXT \eli' 
define ELLA_OUT_DIR "." 
define ELLA_OUT_EXT Veto" 
define V1D.DIR "videos- 
define VID.EXT ".vid' 
define IMAGE_DIR "images" 
define BATCH_DIR "batch" 
define BATCH_EXT "bai" 
define KLICSJDIR "import" 
define KL3CS_EXT ".klics" 
define KUCS_SA_DIR "import" 
define KUCS_SA_EXT MdicsSA" 

typedef enum { 

TRANS_None, TRANS_Wave, 

} TransType; 

typedef enum { 

MONO, RGB, YUV, 
} VideoFormat; 

extern String ChannelName[3][4]; 



negif(bool.value) ((bool)?-(vaJue): (value)) 
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typedef struct { 

String name; 

Pixmap pixmap; 

unsigned int height, width; 
} IconRec, *lcon; 

typedef void (*Proc)(); 
typedef String *(*ListProc)0; 
typedef Boolean (*BoolProc)(); 

typedef struct { 
String name; 
WidgetClass widgetClass; 
String label; 

String hook; /* menuName for smeBSBprObjectClass */ 
} Menultem; 

typedef struct { 

String name, button; 

ListProc list_proc; 

String acnon_name; 

Proc acrionjroc; 

caddr_t action_closure; 
} Selectltem, 'Selection; 

typedef struct { 

TransType type; 

Lot space[2]; 

Boolean dim; 
} WaveletTrans; 

typedef union { 
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TransType type; 
WaveletTrans wavelet; 
} VideoTrans; 



rypedef struct JVideoRec 
char name(STRLEN]; 
char path[STRLEN]; 
char files [STRLEN]; 
VidcoFormat type; 
Boolean 
Boolean 



{ 



/* Name of this video name.vid •/ 
/* Path to frame file(s) */ 
/* Name of frames filesOOl if not name */ 
/• Type of video (MONO,RGB,YUV) */ 
disk; /* Frames reside on disk rather than in memory */ 
gamma; /* Gamma corrected flag */ 



Boolean 



negative; 



/* Load negative values in data •/ 



int 


rate; 


/* Frames per second */ 


int 


start; 


/• Starting frame number */ 


int 


size[3]; /* Dimensions of video after extraction x, y and z */ 


int 


UVsample[2]; 


/• Chrominance sub-sampling x and y */ 


int 


offset; 


/♦ Header length •/ 


int 


cols, rows; 


/♦ Dimensions of video as stored */ 


int 


x_offset, y_offset; /* 


Offset of extracted video in stored */ 


VideoTrans trans; 


/* Transform technique used */ 


int 


precision; 


/• Storage precision above 8 bits */ 


shon 


••daia[3]; 


/* Image data channels */ 


struct 


JVideoRec *next; 


/• Next video in list */ 



} VidcoRec, *Video; 

typedef struct { 

Video video; 

char name[STRLEN]; 
} VideoCtrlRec, *VideoCtrl; 



rypedef struci _PoiniRec 
int location[2]; 



PCT/GB94/00677 

WO 94/233*3 rV 

-461- 

Lnt usage; 

stjuct ^PoiniRec *next; 
} PointRec, *Point; 

rypedef struct _FrameRec { 

Widget shell, image jvidgrt, point_merge_widget; 

Video video; 

ini zoom, frame, channel, palette; 
Boolean pointswitch, pointjnerge; 
Point point; 
Message msg; 
struct _FrameRec *next; 
} FrameRec, *Frame; 

^define NO_CMAPS 6 

typedef struct _BatchRec { 
Proc proc; 

caddr t closure, call_data; 
struct JBatchRec *next; 
} BatchRec, *Batcb; 



typedef struct { 

char homc[STRLEN]; 

XtAppContext app_con; 

Widget toplevel; 

int no Jcons; 

Icon icons; 

Video videos; 

Frame frames; 

Point points; 

Palette palettes; 
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int no_pals; 
Suing parsc_fik; 
Suing paisejoken; 
FILE *parse_fp; 
XVisuallnfo 'visinfo; 
int levels, rgbjevels, yuv_levels[3]; 
Colormap cmaps[NO_CMAPS]; 
String batch; 
Batch batchjist; 
Boolean debug; 
int dither(16]Il6]; 
} GlobalRec, *Global; 

typedef struct { 

Widget widgets[3]; 

int max, min, *vahie; 

String format; 
} NumlnputRec, •Numlnput; 

typedef struct { 

Widget widgcts[2]; 

double max, min, *value; 

String format; 
} FloatlnputRec, *Floatlnput; 

extern Global global; 

/» InitFrame.c */ 

extern Video FindVideoO; 

/* Pop2.c */ 
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extern void NAO; 

extern Widget FindWidget(); 

extern void DestroyO; 

extern void Free(); 

/* Storage. c */ 



extern void NewFrameO; 

extern void GetFrameO ; 

extern void SaveFrameO; 

extern void FreeFrame(); 

extern void SaveHeaderO; 

extern Video CopyHeaderQ; 



/* Message. c */ 

extern void TextSi2eO; 

extern Message NewMessageO; 

extern void Message WindowO; 

extern void CloseMessagcO; 

extern void MprintfO; 

extern void DprintfO; 

extern void EprintfO; 

extern void MflushQ; 



/♦Iconic */ 



extern void FDlForm(); 

extern void FillMenuO; 

extern Widget ShellWidgetO; 

extern Widget Forma tWidgetO; 

extern void SimpleMenuQ; 
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extern int TcxtWidthO; 
extern Icon FindlconO; 
extern void NumIncDec(); 
extern void FloatlncDec(); 
extern void Change YN(); 
extern XFontStruct *FindFont(); 
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